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Radio Shack TRS-80 Model I, II, and III assembly language is a powerful way 
to program. Assembly-language programs may run as much as 300 times faster 
than their BASIC counterparts, turning a boring BASIC game into a high- 
speed video chase or a day-long sort into minutes. Unfortunately, assembly lan- 
guage is also difficult to learn and, once learned, a tedious language in which 
to program. 

What is the solution in using assembly language on the Radio Shack com- 
puters? This book offers one solution — precanned, debugged, and documented 
assembly-language subroutines for the TRS-80 computers. In it, you'll find sub- 
routines that will speed up your graphics by a factor of 300, subroutines that 
enable you to perform high-speed sorts, general-purpose subroutines that will 
allow you to do number base conversions and square roots, and special utility 
subroutines, such as subroutines to "dump" the video screen to cassette or to 
read a disk sector. 



There are 65 of these assembly-language subroutines. The subroutines may be 
easily interfaced to BASIC programs — they are specifically geared to BASIC 
interfacing, as a matter of fact. Each subroutine is relocatable; the assembly- 
language code is such that the subroutine may be placed anywhere in memory 
without reassembling the subroutine. To make this task very easy, we've in- 
cluded the equivalent decimal code after the listing of each subroutine. It's 
simply a matter of taking the dozen, or two dozen, or three dozen decimal 
values and embedding them in BASIC programs as DATA statement values or 
strings. From that point on, the subroutine exists as part of the BASIC program. 

Of course, you may not want to always use the subroutines in BASIC programs. 
You may want to CALL them in your own assembly-language code. We've also 
made it easy for you to do this. Each set of code can be called as a separate 
assembly-language module. You may want to reassemble and modify the code, 
but, if not, the code is usable as it stands, and it is completely relocatable. 

Although the subroutines are slanted toward the TRS-80 Model I and III, many 
of them can also be used on the TRS-80 Model II; all three computers, of course, 
use the Z-80 microprocessor. 

The first chapter of this book, "A Brief Look at TRS-80 Assembly-Language 
Programming," contains introductory material on Z-80 assembly-language pro- 
gramming, to make you familiar with some of the techniques. It's not abso- 
lutely necessary that you read this chapter. The next chapter, "Using Assembly 
Language on the TRS-80," shows you how assembly language may be used in 
either a BASIC or stand-alone environment. This chapter is not an absolute 
requirement, either, but you may want to study it further when you start using 
the subroutines and embedding them in BASIC programs or running them as 
separate entities. 

The bulk of the book consists of 65 separate assembly-language subroutines. 
Each subroutine consists of a description, the subroutine listing, and equivalent 
decimal values for the "machine code" of the subroutine. 

The description gives a brief idea of what the subroutine accomplishes and 
shows the input and output parameters that are used to pass information back 
and forth between the subroutine and the calling program. 

The description also includes a complete explanation of the algorithm used in 
the subroutine — how the subroutine accomplishes the function in Z-80 code. 

Another element in the description is a sample call to the subroutine using 
actual input and output values. The sample calls use a "TRS-80 Assembly- 
Language Subroutines Exerciser" program, TALSEX for short. TALSEX is a 
Model l/lll Disk BASIC program that was used to exercise the subroutines; it is 
fully described in Chapter 2 and is used in the descriptions to conveniently 
show the action of each subroutine. 

Notes pertaining to the use of the subroutine are also included in the descrip- 
tion along with a "checksum" value that can be used to verify that you have 
entered the program data correctly. 

The assembly-language listing is the actual listing from the Z-80 assembler. It 
shows every instruction used in the subroutine and also is heavily "com- 



merited." Because of this, the listing may be used in self-study on assembly- 
language programming and techniques. 

The last portion of each subroutine is a complete set of decimal values to be 
used for inclusion in a BASIC program in DATA statements or the like. We've 
done the conversion from hexadecimal to BASIC for you, to minimize operator 
error. These values, when added together by the CHKSUM subroutine, should 
correspond to the Checksum value in the description, giving you a way to 
check the validity of the data in your program. 

An appendix on Z-80 instructions and a second on decimal/hexadecimal con- 
version complete the book. 

We hope that you'll find these subroutines useful in BASIC, in assembly- 
language programs, and in self-study of Z-80 assembly language on the 
TRS-80S. 

To John Foster and "ASHEE" 
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In this chapter we'll discuss some rudimentary assembly-language concepts. It 
isn't necessary that you understand everything in this chapter, or even that you 
read the chapter to use the subroutines in this book. If you choose to do so, 
however, you'll get a better idea of how assembly language is done. 



The Z-80 Microprocessor 



The Z-80 microprocessor is used in the TRS-80 Model I, II, and III microcom- 
puters. It is a third-generation microprocessor that is truly a "computer on a 
chip." When we speak about TRS-80 assembly-language programming we're 
really discussing the built-in instruction set of the Z-80 microprocessor. 

Unlike BASIC statement execution, the Z-80 performs instructions at the most 
rudimentary level. Typical instructions would add two 8-bit numbers, subtract 
two 8-bit numbers, load a CPU register with the contents of a memory location, 
or store a CPU register into a memory location. 



Z-80 Registers 



All assembly-language programs are built up of a set of Z-80 instructions in 
sequence, which are executed by the Z-80. These instructions are held in mem- 
ory in binary and may be one to four bytes long. The binary values for the 
instructions are called machine language, because this is the form that the Z-80 
computing machine recognizes. 



Before we look at some of the Z-80 instructions, let's take a further look at the 
Z-80 architecture. Figure 1-1 shows the internal registers available to the ma- 
chine-language or assembly-language programmer. We won't show some of 
the other registers involved in internal microprocessor operations, such as 
memory access or timing. 
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FIGURE 1-1 Z-80 registers for use in assembly language. 

The Z-80 registers are fast-access memory locations located in the Z-80. The A, 
B, C, D, E, H, and L registers are general-purpose 8-bit registers in the Z-80. 
They are used to hold temporary results and for processing. 

The A register is the main accumulator register. It holds one operand for adds, 
subtracts, and other arithmetic operations while the other operand may come 
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from memory or another register. The other registers are used as auxiliary regis- 
ters, with the exception of H and L. 

H and L, along with B and C and D and E, can be grouped together as register 
pairs of 1 6 bits. When this is done, the registers act as three 1 6-bit wide registers 
called HL, BC, and DE. The HL register pair (often called the HL register) is a 
kind of 16-bit accumulator similar to the A register. It can be used for 16-bit 
adds, subtracts, and other operations. 

The IX and IY registers are 1 6-bit registers that can be used as index registers, or 
pointers to memory locations. We'll discuss these a little later on, when we talk 
about Z-80 addressing modes. 

The PC, or program counter, register is the main control register not only in the 
Z-80 microprocessor, but in the whole TRS-80 system. It controls execution of 
all programs, assembly-language or BASIC. After all, BASIC is simply an assem- 
bly-language program that operates on a series of higher-level statements. The 
PC is 16 bits wide and points to the first byte of the next instruction in memory to 
be executed. As an assembly-language program executes, the PC is constantly 
being updated by one to point to the next byte of the instruction or is loaded 
with a jump address to enable a jump to a new location in memory. 

The SP, or stack pointer, register, is a 16-bit register that points to the stack area. 
The stack area is a special section of RAM memory that is set aside to hold 
return addresses from CALL instructions, temporary results, or interrupt loca- 
tions. This stack area, typically only one hundred bytes long, builds downward 
as the stack is used. Every time an assembly-language CALL instruction (similar 
to a BASIC GOSUB) is executed, the return address from the PC register is 
pushed onto the stack. A subsequent RET(urn) instruction pops the stack and 
reloads the PC with the return address. 

The R and I registers can be largely ignored by the programmer. (The R register 
is used in one subroutine in this book.) The I register is used for a special 
interrupt mode in other Z-80 systems, and R is used for refresh of the dynamic 
memories in the TRS-80 systems. 



We've given a thumbnail sketch of all of the Z-80 registers except one, the F 
register. The F register is a collection of the eight flags shown in figure 1-2. 
These flags are set by the action of assembly-language instructions. The Z flag, 
for example, stands for Z(ero) flag. The Zero flag is set whenever the result of 
certain adds, subtracts, or other types of arithmetic operations is zero. The 

I other flags are set for similar conditions. The flags are used in conditional jump 

instructions to alter the flow of an assembly-language program. The program 
could jump to a new set of codes if the result of an add was a negative number, 

I for example. The A and F registers are treated together as one 16-bit register 

pair for storage in the stack and other operations. 

(The seven general-purpose registers and the flags register are duplicated in the 
Z-80. The second set, called the prime set, is available as additional register 
rfnrmo One r>r tho nthor cot mav hp cplprtpH hv tWD instructions. 



storage. One or the other set may be selected by two instructions. 



Z-80 Instructions 



FIGURE 1-2 F registers. 
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The instruction repertoire of the Z-80 contains well over 700 unique instruc- 
tions. Fortunately, many of these instructions can be grouped together, and the 
actual number of similar groups is much easier to manage. 

Loads generally load the contents of an 8-bit memory location, CPU register, or 
immediate value in the instruction itself into a CPU register. A second class of 
loads store the contents of an 8-bit CPU register into memory. Loads may also 
be done on 1 6-bits of data in a register pair, load ing or storing two bytes of data. 
There are a great number of load-type instructions in the Z-80. A load instruc- 
tion in the Z-80 is denoted by an "LD," and you will see many, many loads in 
every program. A load is really just a way of transferring data. 

Arithmetic instructions add or subtract 8 bits of data with the A register, or 16 
bits of data with the HL, IX, or IY registers. These are simply adds and subtracts 
of binary numbers, sometimes with the state of the Carry flag (a one or a zero) 
being added into the result. Adds and subtracts are denoted by ADD, ADC, 
SUB, or SBC. A special type of subtract, the compare (CP), compares two 8-bit 
values. 

A number of instructions related to arithmetic instructions allow adding (INCre- 
menting) or subtracting (DECrementing) one count from the contents of a CPU 
register or memory location. 

Logical instructions perform ANDs, ORs, or exclusive ORs on operands in the 
A register. The ANDs and ORs are identical to BASIC ANDs and ORs, except 
that they operate with 8 bits of data, while the XOR is similar to an OR except 
that two one bits produce a zero bit in the result. 

Shift instructions shift data in any of the 8-bit CPU registers one bit position 
right or left. There are several different types of shifts, including the rotate, 
which rotates the data out of the register and into the other end, the logical 



Z-80 Addressing Modes 



shift, which shifts data out with zeroes filling vacated bit positions, and the 
arithmetic shift, which sign extends the value in the register. Mnemonics for 
shifts are RLCA, RLA, RRCA, RRA, RLC, RL, RRC, RR, SLA, SRA, SRL, RLD, and 
RRD. 

Jumps, CALLs, and return instructions handle alterations of the program path 
similar to BASIC GOTOs, IF . . . THEN, GOSUBs, and RETURNS. There are 
two types of jumps, conditional and unconditional. Unconditional jumps al- 
ways jump to a new location, while a conditional jump jumps if the condition, 
such as Zero Flag=1, is present. CALLs are identical to BASIC GOSUBs. They 
call an assembly-language subroutine and save the return point in the program 
stack. A RET(urn) retrieves the return address from the stack and returns to the 
instruction after the CALL. CALLs and RETurns may also be conditional or 
unconditional. Jumps are denoted by JP or JR, CALLs by CALL, and RETurns by 
RET. 

A special type of jump is used in conjunction with a loop count in the B 
register. The DJNZ instruction (Decrement and Jump if Not Zero) decrements 
the count in B by one and then jumps back to the beginning of a loop if the 
count is not zero. 

Bit manipulation instructions allow operations on a bit level. Data in a CPU 
register or in memory can be referenced by the bit address, 7 through 0, and the 
applicable bit can be set, reset, or tested. Bit manipulation instructions are 
denoted by SET, RES, or BIT. 

"Block" instructions allow operations on many bytes of data in a block. Blocks 
of data may be searched (CPI, CPD, CPIR, CPDR) or moved (LDI, LDD, LDIR, 
LDDR) using these instructions. 

Input/output instructions handle operations between CPU registers and an ex- 
ternal input/output device, such as cassette tape. The TRS-80s allow both 
"memory-mapped" and "I/O mapped" input/output. This means that an 
input/output device may look either like another memory location (memory 
mapped) or as a special device addressed through an input/output port. When 
the system I/O ports are used, input is normally done with an IN instruction and 
output with an OUT instruction. 

Stack instructions allow data in CPU register pairs; including the AF register 
pair, to be temporarily stored in the system stack. PUSH pushes a single register 
pair to the stack and POP retrieves the data into the original register pair or 
another. 

We haven't mentioned all of the Z-80 instructions, but the above list would 
encompass most of the instructions used in common Z-80 assembly-language 
code. Special instructions are sometimes described in the documentation on 
the subroutines, and there's always reference material in Zilog or Radio Shack 
publications that describe the Z-80 instructions in great detail. 



There are a number of different ways to access data with the Z-80 instruction 
set. These are called addressing modes. 



One type of addressing mode allows operations between CPU registers. You 
can see that it's convenient to add two numbers located in two CPU registers, 
for example. A complete instruction using this type of addressing mode might 
be "ADD A,B," which adds the contents of the B register to the contents of the 
A(ccumulator) register and puts the result into the A register. Another sample of 
this type of instruction is "INC DE," which adds one to the contents of the DE 
register pair and puts the result back into the DE register pair. 

Register addressing is normally used for arithmetic and logical instructions, 
shifts, and load instructions. 

Load and store instructions must transfer data between CPU registers and mem- 
ory. One addressing mode that implements this in load-type instructions is the 
direct addressing mode. This mode allows a CPU register to be loaded or stored 
directly to a RAM memory address specified in the instruction. A "LD 
A,(3C00H)," for example, would load the contents of the first video display 
memory location into the A register. Similarly, a "LD (3FFFH),A" would store 
the contents of A into the last location of the video display memory. Not only 8 
bits of data can be transferred. Sixteen-bit operations are possible with instruc- 
tions such as "LD (3C00H), HL," which stores the contents of the HL register 
pair into video memory locations 3C00H (L) and 3C01 H (H). 

Direct addressing is also used in some types of jump and CALL instructions. In 
this case the address specified in the instruction is the address to which the 
instruction will jump or which the instruction will call. The instruction "CALL 
212H," for example, CALLs the ROM subroutine located at memory location 
212H. The 212H is a part of the instruction as a direct address. 

The immediate addressing mode is used to load a data value into either an 8-bit 
CPU register or into a 16-bit register pair. The data value is usually a constant 
value when loaded into the 8-bit register, but is often an address value when 
loaded into a 16-bit register pair. The term "immediate" means that the data is 
present as part of the instruction itself. The advantage to this mode is that of 
speed and convenience. The immediate mode is faster than accessing a data 
value from a memory location and one does not have to keep track of a large 
number of constants in memory. The following code loads the value of 41 H 
(ASCII "A") into the A register, and the address 3C00H into the HL register pair: 

LD A,41H ;load "A" into A 

LD HL,3C00H ;load start video memory to HL 

Notice that when immediate addressing is used, the data is not surrounded by 
parentheses, as it is in direct addressing, where the data represents a memory 
address. The exception to this is in the jump or CALL instructions where the 
memory address for the jump or CALL does not have parentheses. 

Another type of memory reference addressing mode uses a register pair as a 
pointer to a location in memory. The most commonly used pointer is the HL 
register pair. In this type of addressing, the HL, BC, or DE register is preloaded 
(by another instruction) with the address of the memory location to be used in 
the "register indirect" instruction. An example of this would be the two instruc- 
tions 



LD HL,3C00H ;Ioad video memory start 

LD (HL),A ;store into video start 

The first instruction loads the memory address of 3C00H (the first byte of the 
video memory) into the HL register pair. The next instruction stores the con- 
tents of the A register by a "register indirect" store, using the memory address 
in the HL register pair. 

Another type of addressing mode that is similar in concept to that of using the 
register pairs as pointers is the indexed addressing mode. In this mode, the IX or 
IY index register is used as a pointer to a memory location. The index register 
by itself, however, does not represent the complete address of the memory 
location. The effective address, the one used in the instruction, is formed by 
adding the contents of the IY or IX index register together with a displacement 
address in the indexed instruction. The displacement is a "signed" binary value 
of 8 bits that may be a positive or negative quantity. The effective address, 
therefore, is larger or smaller than the address in the index register. The indexed 
addressing mode is commonly used where the index register points to the 
beginning or end of a table or list of data; the displacement in the instruction 
can then be used to reference memory locations close to the address in the 
index register. 

Suppose, for example, we had a table of data at memory location 8000H. The 
following code would load 8000H + 5 into the A register, and 8000H + 10 
into the B register: 

LD IY,8000H ; load index register with 8000H 

LD A,(lY+5) ; load 8005H contents into A 

LD B,(iY+10) ; load 800AH contents into B 

One important addressing mode for our purposes is the relative addressing 
mode. In this mode, the memory address is not present in the instruction, as it 
was for the jump or CALL, but is relative to the location of the instruction itself. 
A displacement value in the instruction is used by the CPU, along with the 
contents of the program counter, to figure out the effective address for the 
jump. For example, if we looked in the machine-language code for a "DJNZ" 
instruction, we would not see a two-byte memory address, but a one-byte 
displacement value. If the jump in the DJNZ was to be made back to location 
8000H, and the DJNZ was at location 800AH, the displacement value would be 
0F4H, a negative OCH or twelve (the program counter points to two more than 
the start of the DJNZ instruction). 

Relative addressing is important for our purposes because it makes relocatable 
code possible — assembly-language code that can be moved around anywhere 
in memory and still execute properly. The key to repeatability is to avoid direct 
addresses within instructions, and relative jumps such as DJNZ and JRs are 
used to advantage. 

Bit addressing is another type of addressing mode. This mode is used only for 
the bit-processing instructions. The bit position within a byte is referenced in 
this mode, along with one of the other addressing modes we've mentioned 



above. To set bit 6 in the memory location pointed to by the HL register pair, for 
example, we'd have 

BIT 6,(HL) ; set bit 6 in memory location 

Bit positions in 8-bit bytes are numbered from left to right, bit 7 through bitO. 
Bit positions in 16-bit "words" are numbered from left to right also, bit 15 
through bit 0. The bit position number represents the power of two associated 
with the bit. 

There are no hard and fast rules about which addressing type to use. Many 
times the choice is dictated by the instruction — not all addressing types are 
permitted with every instruction. 



Machine Code and Assembly Language 



We talked briefly about machine code, but haven't really made a distinction 
between machine and assembly code. The difference can be seen quite easily 
by reference to a typical listing in this book. 

Figure 1-3 shows a short listing for CHKSUM. The listing is divided into several 
parts. Starting from the left, we have the memory locations, in hexadecimal, for 
which the subroutine was assembled. The value for each line shows where the 
instruction on the line will reside: The code always starts at location 7F00H. In 
the case of subroutines in this book, these locations are meaningless, as the 
code can be used not only at locations 7F00H, but 8000H, 888FH, 9013H, or 
any place in memory the user cares to put them. (More on that in Chapter 2.) 

The next column is the actual machine code for the instruction in hexadecimal. 
Two hexadecimal digits (0 through 9, A through F) make up one byte, so you 
can see that the machine code is from two to six hexadecimal characters or one 
to three bytes long. The maximum length of an instruction is four bytes, or eight 
hexadecimal digits. Note that the memory location for the instruction in the 
first column reflects the size of the previous instruction. If an instruction is three 
bytes long and is located at 7F0BH, for example, the next memory location 
will be three bytes greater, or 7F0EH. 

The third column shows the editing line number for the instruction. The editing 
line numbers are used only during the editing process and are never used 
during program loading or execution. 

The fourth, fifth, sixth, and seventh columns represent the assembly-language 
code for the instructions. Sometimes this portion is called the "source image," 
because this is the portion that appears in the source file that is assembled. 

The fifth column is the mnemonic for the instruction operation code, or op- 
code. We've been using mnemonics all along. They are just a shorthand way of 
writing down the instruction in convenient and recognizable form. The opera- 
tion code describes the primary function of the instruction, as, for example, an 
"ADD." 
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FIGURE 1-3 


Partial CHKSUM listing. SOURCE IMAGE 








/\ 






7F00 


00100 


1 ORG 7F00H 


;0522 


1 




00110 


; ************ ************************************* ******* 




00120 


5* CHECKSUM MEMORY. CHECKSUMS A 


BLOCK OF MEMORY. 


* 




00130 


;* INPUT: HL=> PARAMETER BLOCK 


* 




00140 


;* PARAM+0,+l=STARTING ADDRESS OF BLOCK 


* 




00150 


;* PARAM+2»+3=# OF BYTES IN BLOCK 


* 




00160 


5* OUTPUT:HL=ADDITIVE CHECKSUM 


* 




00170 


;#********#*■** ************************** **** ******* ****** 




001B0 
00190 


7 












7F00 


F5 


CHKSUM 


PUSH 




AF 




5SAVE REGISTERS 




7F01 


C5 


00200 




PUSH 




BC 








7F02 


D5 


00210 




PUSH 




DE 








7F03 


DDE5 


00220 




PUSH 




IX 








7F05 


CD7F0A 


00230 




CALL 




0A7FH 




;*#*GET PB LOC'N*** 




7F08 


E5 


00240 




PUSH 




HL 




; TRANSFER HL TO IX 




7F09 


DDE1 


00250 




POP 




IX 








7F0B 


DD6E02 


00260 




LD 




Li ( IX+2) 




;GET # OF BYTES 




7F0E 


DD6603 


00270 




LD 




H* ( IX+3) 








7F11 


DD5E00 


00280 




LD 




E, ( IX+0) 




;GET STARTING ADDRESS 




7F14 


DD5601 


00290 




LD 




D, ( IX+1 ) 








7F17 


D5 


00300 




PUSH 




DE 




; TRANSFER TO IX 




7F1B 


DDE1 


00310 




POP 




IX 








7F1A 


010100 


00320 




LD 




BC, 1 




; DECREMENT VALUE 




7F1D 


AF 


00330 




XOR 




A 




; CLEAR CHECKSUM 




7F1E 


DD8600 


00340 


CHK010 


ADD 




A> ( IX+0) 




; CHECKSUM 




7F21 


DD23 


00350 




INC 




IX 




5BUMP ADDRESS PNTR 




7F23 


B7 


00360 




OR 




A 




; CLEAR CARRY 




7F24 


ED42 


00370 




SBC 




HL.BC 




5 DECREMENT COUNT 




7F26 


20F6 


00380 




JR 




NZiCHK010 




;GO IF NOT DONE 




7F28 


6F 


00390 




LD 




LiA 




;MOVE CHECKSUM TO HL 




7F29 


2600 


00400 




LD 




H 5 








7F2B 


DDE1 


00410 




POP 




IX 




; RESTORE REGISTERS 




7F2D 


Dl 


00420 




POP 




DE 








7F2E 


CI 


00430 




POP 




BC 








7F2F 


Fl 


00440 




POP 




AF 








7F30 


C39A0A 


00450 




JP 




0A9AH 




;*#*RETURN STATUS*** 




7F33 


C9 


00460 
00470 




RET 
END 








; NON-BASIC RETURN 




0000k V 




0000H TOTAL [ 


ERRORS V V V 




\ 




t 




\ \ \ \ OPCODE OPERANDS 


COMMENTS 




MEMORY MACHINE EDITING INSTRUCTION 






toe/ 


vtions cc 


)DE 


UNE# L 


ABEL 













The sixth column is the operands column. The column is used to show which 
operands will take part in the instruction. The instruction at CHK010, for exam- 
ple, ADDs the location pointed to by the IX index register plus a displacement 
of to the contents of the A register. The formats for the operands are relatively 
fixed and can be found in other reference materials for Z-80 assembly lan- 
guage. 

The fourth column is the label of the instruction. This is an optional column, 
but really delineates the difference between machine language and symbolic 
assembly language. The label is used by the assembler program in lieu of a 
memory address. The instruction at 7F26H in figure 1 -3, for example, refers not 
to a jump address at 7F1 EH, but to a label of "CHK01Q." The assembler trans- 
lated the label reference to the proper address in the instruction, in this case, a 
relative displacement. 
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Additional Z-80 Assembly-Language Materials 



The last column on the listing is the comments column. This column contains t 
descriptive text about the use of the instruction. Note that we've indented the I 
comments column to show loops. Each level of loops is indented two spaces, 
and there may be as many as three levels of loops. Also in the comments 
column, we've marked certain instructions with asterisks. These represent in- 1 
structions which may be ignored under "stand-alone" conditions when the 
subroutine is not used with BASIC. This is explained fully in Chapter 2. 

I 



As the title of this chapter indicated, we've briefly discussed Z-80 assembly 
language. If you would like a more in-depth discussion of instruction formats, 
addressing modes, and assembly-language techniques, we suggest you obtain 
the reference manual for the Zilog Z-80 microprocessor, or refer to the instruc- 
tion manual for the Radio Shack Editor/Assembler, which reproduces much of 
the same material. The author's Radio Shack book, "TRS-80 Assembly- 
Language Programming," is also a good place to start. 

In the next chapter we'll discuss some of the general techniques of using as- 
sembly language, and specific details about the use of the subroutines in this 
book. 



12 




Using Assembly 
Language on the TRS-80s 



In this chapter we'll look at some of the techniques involved in using assembly 
language on the TRS-80 Models I, II, and III, especially in regard to interfacing 
the machine-language representation of assembly-language code with BASIC 
programs. 



Using the Model 1 and Hi Assemblers 



There are a number of editor/assemblers for the Model I and III computers, and 
they are very similar. All are modifications of the basic Radio Shack cassette- 
based Editor/Assembler. The following description of the assembly process will 
use the Radio Shack Editor/Assembler as a point of reference; material on disk 
files will refer to the various modifications available for the Radio Shack Editor/ 
Assembler to enable it to read and write source and object files on disk. 

This material is offered in case you wish to assemble some of the subroutines in 
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the book and modify them for your own use; let's stress once again that you 
can use the subroutines in the book without ever touching an assembler. 

Editing the Source File 

The first step in assembly is to edit the source file. Let's use another short 
subroutine as an example. The SQROOT subroutine is shown in figure 2-1 . To 
start the edit, the assembler is loaded from cassette or disk. The SYSTEM com- 
mand is used to load from cassette. Loading from disk simply involves entering 
"EDTASM" followed by ENTER. 

ORG 7F00H ; 0522 

;##*###########*#*■######**############»###«■###*####*###*«■ 
!# SQUARE ROOT. CALCULATES INTEGER PORTION OF SQUARE * 
;* ROOT OF A GIVEN NUMBER. * 

!# INPUT: HL=NUMBER * 

;* OUTPUTsHL=INTEGER PORTION OF SQUARE RT OF NUMBER * 

; 

;SAVE REGISTERS 



;***GET NUMBER*** 

; INITIALIZE RESULT 

? FIRST ODD SUBTRAHEND 

; INCREMENT RESULT COUNT 
; SUBTRACT ODD NUMBER 
5 FIND NEXT ODD NUMBER 

; CONTINUE IF NOT MINUS 
5 GET RESULT 
SNOW IN HL 
; RESTORE REGISTERS 

;***RETURN ARGUMENT*** 
; NON-BASIC RETURN 



FIGURE 2-1 Sample Source file for edit. 

The "I" command is used to enter a new file. The "I" command is the insert 
command, and is normally used to insert lines between existing lines in an edit 
file. In this case, however, there are no existing lines and the "I" command 
starts a new set of lines with the starting number 100 and line increment of 10. 

The "source image" text of the subroutine can now be entered. Each line is 
typed in its entirety and an ENTER is used to terminate a line. The first several 
lines look like this: 



SQROOT 


PUSH 


BC 




PUSH 


DE 




CALL 


0A7FH 




LD 


B?0FFH 




LD 


DE»-1 


SQR010 


INC 


B 




ADD 


HL.DE 




DEC 


DE 




DEC 


DE 




JR 


C»SOR0i0 




LD 


L»B 




LD 


H?0 




POP 


DE 




POP 


BC 




JP 


0A9AH 




RET 






END 





*l 

00100 
00110 
00120 



ORG 



7F00H 



;0522 



•######***#**##******#*****************#**#**#**#####*##** 



;* SQUARE ROOT. CALCULATES 



The left arrow key can be used to backspace to correct errors in entry. Other 
editing features are very similar to the BASIC line editor — such things as "L" for 
line, "S" for search, and so forth. After the entire text has been entered, the 
BREAK is pressed. This terminates the insert mode and displays the greater than 

prompt. 
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The source text is now in memory. The source text can be written out to cas- 
sette by the command "W SQROOT," This command produces a source file 
with the name SQROOT. A subsequent "L SQROOT" enables the source file 
to be read in from cassette as a text file. 

The source text can be written out to disk as a source file by the command 
"WD SQROOT/SRC" ("W D=SQROOT/SRC" in some versions). If this is 
done, the text will be transferred to disk as a source file and can be read in for 
further editing at any time by a "LD SQROOT/SRC" (LD= SQROOT/SRC). 

After the source file has been created on disk or cassette, it can be reloaded as 
a check on its validity, or you can simply work with the text in memory. 



Assembling the Source File 

To assemble the SQROOT subroutine, type "A/NO/WE/NS" followed by 
ENTER. The source file will now assemble and the listing will be displayed on 
the screen. If there are any errors in the text, the Editor/Assembler will stop and 
any key may be pressed to restart the assembly. At the end of the listing you'll 
see a message that looks like this: 

00000 TOTAL ERRORS, 

indicating that there were no assembly errors. The "/X" entries were "switch 
options" calling for "No Object," "Wait on Error," and "No Symbol Table 
Listing." 

What has been produced up to this point? The machine code was generated, 
but it was simply part of the listing that was rapidly displayed on the screen. All 
we've done to this point was to assemble and display the listing on the screen 
to check for errors. If everything is all right, we can proceed. Otherwise, the 
errors in the source file can be corrected, another assembly done, and the 
process repeated until we get a "clean" assembly. Many errors will relate to 
instruction format, and these can be corrected by reference to the Radio Shack 
Editor/Assembler manual. There are also slight quirks in some of the assembler 
versions— such things as "(IY+0)" not assembling and "(IY)" assembling prop- 
erly. We can't detail all of these here. It's a shame they exist; try to work around 
them! 

When we have a clean assembly, we can create an object file and save it on 
disk. The object file is really a machine-language version of the program, with a 
"header" for the disk file and other data pertinent to the load. Most of the 
content on the disk file will be the actual machine-language code that you see 
on the listing. To create the object file,, assemble without the "No Object" 
switch, which is the default mode of the assembly. You may also assemble to 
line printer, while you're at it: 

*A/LP/NS 

The Editor/Assembler version may ask for a "destination" (disk or tape) and for 
a file name before the assembly. As we've used SQROOT/SRC for the source 
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Using the Model 11 Assembler 



file, we might use SQROOT/OBJ for object. The assembly will proceed as 
before, except that the object file will be written to cassette or disk. 



Loading the Object File 

At this point we have both the source file and object file on cassette or disk. The 
source file is saved for possible modification. The object file can now be 
loaded and executed. To load the object file from cassette, the SYSTEM mode is 
used once again to load the file named at assembly time. 

To load the object file from disk, we must first get back to the Disk Operating 
System, and then use the LOAD command: 

*B 

DOS READY 
LOAD SQROOT/OBj 
DOS READY 

The object file is located by the LOAD command but it is not executed. It is just 
as well, as we were not set up properly to execute the SQROOT program. 
Where is SQROOT loaded? The ORG command establishes the starting point 
for the program, which in all cases in this book is 7F00H. The ORG command 
can be modified to make the load point compatible with your system; just put 
in a new argument in place of 7F00H. If you want a square root subroutine at 
0F000H in a 48K Model I, for example, reassemble with "ORG 0F000H." It may 
also be necessary to protect the memory area in which the object program was 
loaded by responding with one less than the ORG point when BASIC asks the 
question "MEMORY SIZE?". 

Now that we have the program loaded, what do we do with it? We'll answer 
that question in the last part of the chapter in which we'll show you an easier 
way to work with the subroutines in this book when they are interfaced to 
BASIC. 



The edit, assembly, and load process is similar for the Model II. The Model II, 
however, uses the Radio Shack Disk Assembler, which is a more sophisticated 
editor/assembler. There is also a version of the Radio Shack Disk Assembler 
available for the Model I and III. Use of this assembler is beyond the scope of 
this book. The author's Radio Shack book "More TRS-80 Assembly-Language 
Programming," goes into some detail on the Disk Assembler. 

Keying In the Object Code Directly 

The assembly process can be bypassed completely by working with the object 
code alone and T-BUG (Radio Shack's Debug package for cassette-based sys- 
tems) or DEBUG (Radio Shack's Disk Debug Package). A DEBUG utility is also 
present on the Model II system. The result can be saved on cassette or as a disk 
"core image" file. Let's see how this can be done by using the DEBUG program 
on a disk-based system. 
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The modify memory command "M" in DEBUG can be used to enter the data 
one byte at a time. The format of the M command is "MHHHH space," where 
HHHH is the hexadecimal address for the start of the memory area. Choose 
any memory area that is nonconflicting with TRSDOS or BASIC and in which 
you'd like the subroutine to reside. Now go to the listing and key in each byte 
in hexadecimal, following each byte with a space, and the last byte with an 
ENTER. The process is shown in figure 2-2, where a portion of SQROOT has 
been keyed into the memory area starting at 9000H. 

FIGURE 2-2 Keying in object code using DEBUG. 

flF = SB 08 1 

BC = BFi 53 => B7 CR 55 09 21 5E 09 E5 CD 55 89 IB lfl 4F C8 21 

DE =01 04 => lfl 4D 45 4D 4F 52 59 20 53 49 5R 45 08 52 41 44 

HL = 00 54 ==> 81 01 5B IB @fl lfl 08 18 89 19 20 20 0B 73 El 2© 
BF'= FF FF SZ1H1PNC 

BC''= 51 5B => C4 CF 51 10 DE CI C9 ED 5B 60 40 13 E5 flF ED 52 
DE'= 32 02 =>" 

HL''= 51 80 => CG 82 FF CB 02 F7 1© 32 E7 20 32 01 C7 43 04 F7 

IK = 40 15 => 01 9C 43 20 30 00 4B 49 07 58 04 31 3E 20 44 4F 

1Y = 00 80 => F3 flF C3 74 86 C3 88 48 C3 80 40 El E9 C3 9F 86 

SP = 41 CR => 52 S4 C3 4B DD 03 15 48 FF FF 18 43 3F 3F 4C 00 

P>": = fie 68 => ©E 78 Bl 28 FB C9 31 80 86 3fl EC 37 3C FE 02 D2 

9088 «> 1 C5 D5 CD 7F QR Q6~] 28 72 65 70 65 61 74 65 64 20 

•■■mm- 9PH8 = > 75 6E 74 69 6CA20 77 65 28 67 65 74 28 61 20 22 

22 20 61 73 73 65 6D 62 6C 79 2E 

28 65 72 72 6F 72 73 20 77 69 6C 



20--FF 9820 => 63 €C 65 61 6E 
9830 ==> 28 4D 61 6E 79 



\ SIX BYTES KEYED IN 

NEXT BYTE FOR 9006H A T 9000H-9005H 

The machine code values shown on the listings do not have to be modified 

unless the subroutine will not be used in conjunction with BASIC. In this case, 
substitute the 00H code (a "NOP" instruction) for each byte of the starred 
instructions. The hexadecimal machine code is relocatable and can be used 

anywhere in memory. 

After the data has been keyed in, perform a "G66" to reboot TRSDOS and 
dump the memory area by a "DUMP"- command as follows: 

DUMP (START=X'SSSS',END=X'EEEE') 

where SSSS is the starting address in hexadecimal and EEEE is the ending ad- 
dress in hexadecimal. 

The memory image will now be written out as a "core image module" with 
the file extension "/CIM." It can be loaded by the TRSDOS LOAD command in 
the same fashion as the assembly object file. 



Using Assembly Language with Model i and 11! BASIC 



There are two general approaches to using assembly-language code with 
BASIC. The first of these uses two modules, an object code module and a 
BASIC program module loaded at separate times. The second method embeds 
the machine-language code in BASIC statements which then become part of 

the BASIC program. 
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The "Two-Module" Approach 

Let's look at the "two module" approach first. In this approach, the object 
program from assembly or debug dump is loaded first with TRSDOS. Then the 
BASIC interpreter is loaded and the memory area in which the object program 
was loaded is protected with the "MEMORY SIZE? " response. Now the BASIC 
program can call the assembly-language subroutine at will. 

How the BASIC program calls the machine code is slightly different between 
Level II BASIC and Disk BASIC. Level II requires that the address of the machine 
code be put into locations 16526 and 16527. All addresses in the Z-80 are 
stored, least significant byte followed by most significant byte; so a typical 
sequence to establish the call address for Level II BASIC might be as follows for 
a machine-language program at 7F00H: 

100 POKE 16526,0 'least significant byte 

110 POKE 16527,127 'most significant byte 

In Disk BASIC on the Model I or III, the call address is established in simpler 
fashion. The address of the machine-language subroutine is assigned a number 
from to 9. A DEFUSR statement is then used to establish the address: 

100 DEFUSR0=&H7F00 

where &H is the prefix for hexadecimal. 

Once the address is established, the machine-language subroutine can be 
called by a BASIC USR statement of the form A= USR(M) for Level II or 
A= USRn(M) for Disk BASIC. The n in the Disk BASIC version stands for the id 
number from through 9. The M is an integer argument that can be automati- 
cally passed to the machine-language subroutine. The A is an integer argument 
that is passed back from the machine-language subroutine. Either or both of 
these arguments can be "dummies" if no arguments need to be passed. 

To see how the complete sequence works, let's call the SQROOT subroutine. 
Assume that it has been loaded at7F00H and BASIC has protected memory by 
a "MEMORY SIZE? 3251 1 ." We see from the listing that the SQROOT subrou- 
tine takes a 16-bit number and computes the integer square root, passing the 
argument back in HL. The following code would set up the call address in Level 
II BASIC, make the call, and return the result for printing: 

100 POKE 16526,0 'least significant byte 

110 POKE 16527,127 'most significant byte 

120 INPUT X% 'input square 

130 Y= USR(X%) 'call machine lang SQROOT 

140 PRINT X%,Y 'print square, root 

The sequence for Disk BASIC would be similar: 

100 DEFUSRQ=&H7F00 'address 

110 INPUT W% 'input square 
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9 

I 
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I 
I 
I 
I 
I 
I 
I 
I 
I 
I 

I 
I 



120 Z=USR0(W%) 'call machine iang SQROOT 

130 PRINT W%,Z 'print square, root 

In both cases, the argument passed to the SQROOT subroutine was the integer 
variable in the USR call. The argument passed back was the variable equated to 
the USR call. 

In some subroutines, no arguments are required, or only one argument is 
needed. In these cases either a dummy argument, such as 0, may be used, or a 
variable that is not used elsewhere may be used. The SCDOWN subroutine, for 
example, scrolls the screen down one line and requires no input or output 
arguments. The call (assuming that the address has been set up) would be: 

200A=USRO(0) 'scroll screen down 

and the A variable would be ignored. 

Embedding Machine Language in BASIC 

The second method for interfacing BASIC and assembly language is to embed 
the machine-language code in BASIC. There are a number of methods for 
doing this. 

Taking the example of the SQROOT subroutine, let's look at one method that 
uses DATA values. The decimal values for the machine-language code of 
SQROOT is placed into a DATA statement: 

100 DATA 197,213,205,127,10,6,255,17,255,255,4,25,27 
110 DATA 27,56,250,104,38,0,209,193,195,154,10,201 

The DATA values are then moved to a known area of memory on the first pass 
through the BASIC code. Let's use 7F00H again: 

120 FOR l = TO 24 'loop 

130 READ A 'read DATA value 

140 POKE 15212+ l,A 'store value 

150 NEXT I 'loop 25 times 

After the loop is done, the DATA values have been moved to the 7F00H area, 
and the machine-language code can be called in the usual fashion after setting 
up the address in 16526,16527 or with a DEFUSRn statement. This procedure 
will work with all of the subroutines in this book. 

Is there a way to avoid using a predefined area, a way to make the procedure 
more automatic? Yes, with qualifications. Machine-language code can be em- 
bedded in strings, arrays, and even BASIC statements, but there may be some 
problems with this method. Again taking the SQROOT subroutine as an exam- 
ple, let's construct a string of machine-language values and then call the string. 
We can set up the string by: 

100 A$-CHR$(197)+CHR$(213)+CHR$(205) +CHR$(201) 
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One statement can be used if the number of characters in the line does not ex- 
ceed the maximum line length of 255 characters. If there is not enough room in 
one line, two strings can be established and the two can then be concatenated 
into a third. 

Where is the machine-language code in this case? It's somewhere in the string 
variable region at the top of memory. We can find out where it is by using the 
VARPTR function. The VARPTR function will return the location of the string 
parameter block. The string parameter block holds the length of the string and 
the string address as shown in figure 2-3. We can then put the string address 
into locations 16526, 16527 or use it in a DEFUSRn statement. A sample call of 
SQROOT using this technique is shown here: 

100 A$=CHR$(197)+CHR$(213)+CHR$(205) + . . . +CHR$(201) 
110 B=VARPTR(A$) 'get string parameter block location 

120 POKE 16526,PEEK(B+1) 

130 POKE 16527,PEEK(B+2) 
140 A=USR(M) 

where M is the square and A is the square root returned. 
For Disk BASIC, the sequence would be similar: 



100 A$ = CHR$(197)+CHR$(213)+CHR$(205)+ 

110 B=VARPTR(A$) 

120 C=PEEK(B+1)+PEEK(B + 2)*256 

130 IF C> 32767 THEN C=C-65536 

140 DEFUSR0=C 

150 A=USR0(M) 



. +CHR$(201) 



B=VARPTR (AS) 




B POINTS TO 



LENGTH OF STRING 



STRING ADDRESS 
LSB, MSB FORMAT 



STRING ADDRESS 
POINTS TO . . . 



"STRING EXAMPLE" 
FIGURE 2-3 String parameter block format. 

The IF . . . THEN statement is necessary because of a quirk of BASIC. It does 
not handle addresses well as integer arguments, and the subterfuge above is 
necessary to "fool" the interpreter into thinking that the 16-bit memory address 
is a signed integer value. 
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Passing Multiple Arguments 



Now, there's one strong bit of advice that we must give. If you use the above 
method, be aware that everything in BASIC moves! Any time that BASIC en- 
counters a new variable, a new array, or computes a new string, variables are 
readjusted. Periodically, string variables are "cleaned up," and this is done at 
unpredictable times. Therefore, when using the VARPTR to find the address of 
a string, do so only directly before the USR call, and make certain that no new 
variables are introduced in the call. 

There are other methods similar to the above for embedding machine language 
in BASIC code. They all rely on using VARPTR to find the location of a string or 
array. The string could be a dummy string in a program statement, for example. 
The string 

100 A$="THIS IS A DUMMY STRING!!!" 

has 25 characters and can accommodate the 25 bytes of the SQROOT subrou- 
tine. Another advantage of this approach is that in this case the string is at a 
fixed location in memory — as long as the program statements do not change 
(no edits allowed). The machine-language values can be picked up from DATA 
statements and stored in the dummy string, and a VARPTR could then be used 
to find the dummy string location. 

Another method is to establish a large array by a statement similar to DIM 
AA(100). DATA values can now be stored in the array and a VARPTR done with 
the first element of the array to find the start of the contiguous area for the array. 
(Don't try this on string arrays!) 

100 B=VARPTR(AA(0)) 

Here again, do not introduce any new variables after finding the VARPTR ad- 
dress or the address will be incorrect. (New variables are placed before the 
array areas and the array areas are moved down!) 

In the subroutines that follow we will assume that they are located in 7F00H. If 
you wish to use one of the methods described above to embed the machine- 
language code in your programs, that is perfectly feasible as long as you follow 
the ru les. However, be careful of variables that move and things that go bump in 
the RAM! 



In many of the subroutines in this book, it's necessary to pass more than one 
argument to the subroutine and back from the subroutine. Take the MOVEBL, 
or Move Block, subroutine. MOVEBL moves a block of memory from one area 
of memory to another area of memory. Three parameters are involved — the 
address of the existing block (the "source" address), the address of the "desti- 
nation," and the number of bytes to move. All are 16-bit values. 

The USR calling sequence allows only one 16-bit value to be passed. How do 
we pass three 16-bit addresses? The way we have established as a standard for 
the subroutines in this book is to pass the address of a "parameter block." The 
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parameter block holds the necessary parameters in a predefined order. The 
parameter block may be anywhere in memory, either at a fixed location or in a 
string or array. As an example, assume that the MOVEBL subroutine is located 
at FF06H. The parameter block could be six bytes before, starting at 0F000H, 
and we'd have this Disk BASIC calling sequence: 

100 DEFUSR0= &HF006 'address of subroutine 

110 POKE 61440-65536,0 'source address=8000H 

120 POKE 61441-65536,128 

130 POKE 61442-65536,0 'destination address=9000H 

140 POKE 61443-65536,144 

150 POKE 61444-65536,0 '256 bytes 

160 POKE 61445-65536,1 

1 70 A= USR0(61 440- 65536) 'move block 

In this BASIC code, we first defined the address of the subroutine as 0F006H by 
the DEFUSR0. Next we POKEed the source address into 0F000H and 0F001 H, 
least significant byte followed by most significant byte (0,128 becomes 
1 28*256+ 0=8Q00H). Then we POKEed the destination address into 0F002H 
and 0F003H (0,144 becomes 1 44*256 + 0=9000H). Next, we POKEed the num- 
ber of bytes into 0F004H and 0F005H (0,1 becomes 1*256+0 = 256). Finally, we 
called the subroutine by the USR0 call with the input argument equal to the 
start of the parameter block at 61440 (0F000H). Note that we had to use the trick 
of subtracting 65,536 from the addresses in order to use the POKE and USR 
statement with BASIC integer values. 

Alternatively, you could put the arguments in a dummy CHR$ string or dummy 
string and use VARPTR to find the string address, or you could put the argu- 
ments in an array and use VARPTR to find the first element of the array. (Just 
follow the rules, and make certain that no new variables are introduced after 
the VARPTR finds the address!) 



Using Assembly Language on the Model II 



program. 

Two system subroutines, FRCINT and MAKINT, are used in place of the ma- 
chine-language code in place of ROM subroutines at0A7FH and 0A9AH. If you 
are using these subroutines on a Model II together with a BASIC program, you 
may reassemble with the calling sequence given in the Model II BASIC refer- 
ence manual. The two calling sequences would be substituted in place of the 
"starred" "CALL 0A7FH" or "JP 0A9AH." If you are not using a BASIC pro- 
gram, then many of the subroutines in this book may be used "stand alone" by 
replacing the starred instruction bytes with zeroes (NOPs). 
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The general approach for the Model II is virtually identical to that used on the 
Models I and III. The calling sequence uses the DEFUSRn and USRn formats of _ 
Model l/lll Disk BASIC. The major difference is in the Model ll's approach to I 
passing arguments to the machine-language subroutine and back to the BASIC 



I 
I 
I 
I 



How to Use the Subroutines in This Book 



Now we come to the most important part of these two chapters — how do we 
use the subroutines in this book? 

To use any of the 65 subroutines, follow this procedure: 

1. Read the description of the subroutine. See if it can be used on your system. 
Note what parameters are involved and how large (8 or 16 bits) each one is. 

2. If the subroutine is to be used without BASIC and called from your own 
assembly-language code (including Model II code), reassemble the subroutine 
to create your own source file, or create a machine-language core image mod- 
ule using T-BUG or BASIC. Put a 00H byte in every instruction byte that is 
marked with asterisks. This NOPs the calls to BASIC ROM routines that pass 
parameters. (On reassemblies, leave out these instructions.) 

3. If the subroutine is to be embedded in BASIC, put the decimal values into 
DATA statements, and write the BASIC code to move the subroutine to a fixed 
area or variable area as outlined above. 

4. Call the subroutine from BASIC or your own assembly-language code with 
the proper number of arguments. The subroutine may require no arguments, in 
which case dummy arguments would be used in BASIC. The subroutine may 
require one input argument, in which case the USRn call would specify a single 
integer argument. The subroutine may require one output argument, in which 
case the USRn call would specify a dummy input argument with a valid output 
argument. The subroutine may require multiple arguments, in which case the 
USRn call would specify the address of the parameter block containing the argu- 
ments. In assembly-language calls, the arguments are also held in a parameter 
block pointed to by the HL register pair. 

Here are some additional rules: 

1. For assembly-ianguage calls only: HL contains the single argument on 
input, the single output argument, or the address of the parameter block. 

2. For assembly-ianguage calls only: Most subroutines save all registers. The 
ones that do not are clearly denoted. 

3. For assembly-language calls only: The stack pointer is assumed initialized 
before the call. 

4. All subroutines have relocatable code. 

5. All listings have been assembled at 7F00H. The ORG point must be 
changed if you are reassembling at a specific area for a "two module" load. If 
you are using only the machine code, it is correct as it stands. 

6. Certain assemblers have minor bugs in instruction formats; instructions 
may not assemble properly. The assembler used in these subroutines corrects 
some of the assembly errors. If your assembler does not assemble the source 
code as listed, your assembler may be flawed! 

7. Error checking in these subroutines is minimal. In other words, it may be 
easy to blow up the system with improper arguments. This was done to keep 
the subroutines short. Checks should be made for proper arguments before 
calling the subroutine. 
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8. Every effort was made to keep the subroutines relocatable. Some of the 
resulting code may not be good programming practice in nonrelocatable code. 
So be it. 

9. We have purposely stayed away from ROM subroutine calls because of the 
possibility of ROM changes. Those ROM calls that are used are clearly marked. 

10. Tables have generally been avoided because of relocatability problems 
resulting in linear code. Here again, this may not be code to emulate in non- 
relocatable environments. 

11. Nested subroutines within the subroutines have been avoided because 
of relocatability problems resulting in linear code. Again, this was done for 
relocatability. 

12. Names of subroutines and labels are nonconflicting. You may assemble 
all subroutines together en masse without fear of duplicate labels on assembly. 

13. All loops are indented in the comments column. Each level of loop is 
indented two spaces. Block moves and compares are essentially loops and are 
indented. 



TALSEX: TRS-80 Assembly-Language 
Sybroutines Exerciser Program 



Figure 2-4 shows the complete listing of TALSEX. It is a Model l/lll Disk BASIC 
program that we have used to exercise (and hopefully exorcise) all of the sub- 
routines in this book. You will probably not want to use TALSEX, but we'll 
describe how it works in case some of the code is helpful in your BASIC inter- 
facing. All of the sample calls for the subroutines are the output of one test 
case of TALSEX. 

TALSEX first asks for the name of the subroutine. The name is then displayed on 
the screen and printed on the system printer. Next, TALSEX asks for the value to 
be put into HL. If no argument is required, ENTER may be pressed, otherwise 
the argument value is entered. 

Next, the parameter block location is entered. This may be any area in free 
memory. If multiple arguments are being used in the subroutine, the HL value 
corresponds to the parameter block location. The values to be put into the pa- 
rameter block are then input in the form N,V. (N is 0, 1, or 2.) If N is 1, the 
following value V will be 8 bits long. If N is 2, the following value V will be 16 
bits long. An input of 0,0 terminates the input. 

Next, TALSEX asks for a memory block location. If the subroutine uses a mem- 
ory block, this value is input, otherwise ENTER is pressed. Values are then 
entered into the memory block as required. The memory block may be any- 
where in free memory. A 0,0 input terminates the operation. A second memory 
block location may then be input, and values stored in this block. 

Now, TALSEX asks for a location at which the assembly-language subroutine 
should be located. TALSEX assumes that the subroutine is currently in memory 
at 7F00H (from a LOAD operation in DOS). When this value is input, TALSEX 
moves the subroutine from the 7F00H area to the specified memory area to test 
relocatability. 
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The subroutine is then called with HL containing the specified value, and the 
parameter block and two memory blocks containing the specified data. 

On return, the input and output values for HL, the parameter block, and the 
memory blocks are displayed and printed. 

FIGURE 2-4 TALSEX I isting. 

1000 CLB: PRINT "TRS-80 ASSEMBLY LANGUAGE SUBROUTINES EXERCISER" 

1005 DIM 10(49) 

1010 PRINT:PRINT:LPRINT = LPRINT 

1015 HL=70000: PB=7t3000: Ml=70000s H2=70000: ZI=0 

1017 FOR 1=0 TO 49: I0(I)=-i: NEXT I 

1020 A$="NAME OF SUBROUTINE": PRINT A$ ; : LPRINT A $;"? "; 

1030 INPUT A*: LPRI NT A* 

1040 A*="HL VALUE": PRINT A*;: LPRINT A$5"? "5 

1050 A$=""s INPUT A*: LPRINT A* 

1055 IF A$="" GOTO 1070 

1060 HL=VAL(A*>: IF HL>32767 THEN HL=HL-65536 

1070 A$="PARAMETER BLOCK LOCATION": PRINT A*;: LPRINT A*;"? "5 

1080 A*="": INPUT A*: LPRINT A* 

1085 IF A$="" GOTO 1220 

1090 PB=VAL(A$): IF PB>32767 THEN PB=PB--65536 

1100 A*=" PARAMETER BLOCK VALUES?": PRINT A*: LPRINT A$ 

1200 ZA=HL: GOSUB 10000 

1220 A*=" MEMORY BLOCK 1 LOCATION": PRINT A$ ; : LPRINT A*;"? "; 

1230 A$="": INPUT A*: LPRINT A$ 

1235 IF A*="" GOTO 1320 

1240 M1=VAL(A*): IF Ml>32767 THEN M1=M1~65536 

1250 A*=" MEMORY BLOCK 1 VALUES?": PRINT A$ : LPRINT A$ 

1260 ZA=Ml: GOSUB 10000 

1270 A$="MEMORY BLOCK 2 LOCATION": PRINT A$ ; : LPRINT A*;"? "; 

1280 A*="": INPUT A'*: LPRINT A* 

1285 IF A$="" GOTO 1320 

1290 M2=VAL(A*): IF M2>32767 THEN M2=M2-65536 

1300 A*="MEMORY BLOCK 2 VALUES?": PRINT A$ : LPRINT A$ 

1310 ZA=M2: GOSUB 1 0000 

1320 A$="MOVE SUBROUTINE TO": PRINT A$: LPRINT A$ ; " ? "; 

1330 INPUT A*: LPRINT A* 

1340 SL=VAL(A*)s IF SL>32767 THEN SL=SL-65536 

1350 FOR 1=32512 TO 32767 

1 360 POKE ( SL+ 1 -325 12); PEEK ( I ) 

1370 NEXT I 

1380 DEFUSR0=SL 

1390 H1=USR0(HL) 

1395 IF SL<0 THEN SL=SL+65536 

1400 A*=" SUBROUTINE EXECUTED AT ": PRINT A*5SL: LPRINT A$;SL 

1410 A$=" INPUT: OUTPUT:": PRINT A$: LPRINT A$ 

1412 ZI=0 

1415 IF HL=70000 GOTO 1520 

1417 IF HL<0 THEN ML-=HL+65536 

1418 IF HK0 THEN Ml=Hl+65536 

1420 A$="HL=": PRINT A*;HLiA*;Hl: LPRINT A*5HL»A*!H1 

1430 IF PB=70000 GOTO 1480 

1440 A$="PARAM": ZA = PB 

1460 GOSUB 12000 

1480 IF Ml=70000 GOTO 1520 

1485 A$="MEMB1": ZA=M1 

1490 GOSUB 12000 

1500 IF M2=70000 GOTO 1520 

1505 A$=="MEMB2": ZA = M2 

1510 GOSUB 12000 

1520 GOTO 1010 

10000 'SUBROUTINE TO INPUT, LIST) PR I NT , AND STORE VALUES 

10005 'ENTER WITH Z A=MEMORY BLOCK START 
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10008 
10010 
1 0020 
10030 
10040 
10050 
10055 
10060 
10070 
1 2000 
12010 
12020 
1 2030 
12040 
12045 
12050 
12060 
1 2070 
12090 



What to Do if You Have Trouble 



ZN=ZA 

PRINT"+" 5ZN-ZA5 :LPRINT "+" ; ZN-ZA ;: INPUT ZL»ZV: LPRINT ZL;ZV 

IF ZL=0 GOTO 10060 

POKE IN, Z V- 1 NT < ZV/256 ) *256 : 1 ( Z I ) =Z V- 1 NT < Z V/256 ) *256 

IF ZL=2 THEN POKE ZN+1 » INK ZV/256) : 10 ( ZI+1 )=INT( ZV/256) 

ZN=ZN+ZL: ZI=ZI+ZL 

SOTO 10010 

IO(ZI)=-l: ZI=ZI+1 

RETURN 

'SUBROUTINE TO OUTPUT VALUES FROM PARAMETER BLOCK 

'OR MEMORY BLOCK 

'ENTER WITH A$=TITLEs ZA=BLOCK START, ZI=IO<) INDEX 

ZN=0 

ZB=IO(ZI): IF ZB=-1 GOTO 12090 

IF ZN<10 THEN ZN*=STR$(ZN)+" » ELSE ZN$=STR$(ZN) 

PRINT A$;"+";ZN*;ZB 5 A$;"+" ;ZN$;PEEK(ZA+ZN) 

LPRINT A*;"+" ;ZN$;ZB»A$; "+" ;ZN$;PEEK(ZA+ZN> 

ZN=ZN+l: ZI=ZI+ls GOTO 12040 

ZI=ZI+l: RETURN 



Source Programs on Disk 



Every effort has been made to thoroughly check out and debug the subroutines 
in this book. If you find errors, follow this procedure: 

1. If you are not using the subroutines exactly as listed, please thoroughly 
check out your modifications. We simply can't be responsible for your changes — 
there's too much chance for error. We will be responsible, however, for use of the 
subroutine exactly as listed in the book. 

2. Verify that the subroutine checksums to the proper value as shown in the 
description. To do this, use the CHKSUM subroutine in the book, and check- 
sum the subroutine in question from start to end address. The checksum must 
compare to that given in the book. If it does not, you have entered the data 
incorrectly. 

3. Verify that the calling sequence and parameter values are proper. List the 
parameters directly before the call and see that they are within the limits im- 
posed by the subroutine. If they are not, the subroutine may indeed not work 
properly or may cause the system to crash. We can't be responsible for these 
cases. 

4. If you have done all of the above and feel there is still an error in the sub- 
routine, then fill out the following reporting form and send it to the author at: 

P.O. Box 3568 

Mission Viejo, CA 92692 

Your time and trouble are appreciated and the problem will be corrected for the 
next edition of this book. 



A set of diskettes containing all source programs is available from the author. 
For information, please send a self-addressed, stamped envelope to the above 
address. 
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TRS-80 Assembly-Language Subroutines 
Error Reporting Form 



1. Subroutine name: 



2. I am using the identical code as shown in the book: Yes No 



3. ! have checksummed the data: Yes No 



4. Location of subroutine in memory: 



5. I am using the subroutine embedded in BASIC: Yes No 



6. I am using the subroutine as a stand-alone program (not embedded in 
BASIC): Yes No 



7. System: Model I Model II Model III 



8. Operating system: 



9. Assembler (if applicable): 



10. Input parameters: 



11. Output parameters: 
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12. Complete description of error (please attach BASIC listing, assembly list- 
ing, or any other data you find pertinent): 



13. Name: 

14, Address: 

Thanks for your time and trouble! 

Mail to: William Barden Jr., P.O. Box 3568, Mission Viejo, CA 92692 
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TRS-80 ASSEMBLY 

LANGUAGE 

SUBROUTINES 
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ABXBIN: ASCII BINARY TO BINARY CONVERSION 



System Configuration 

Model I, Model 111, Model II Stand Alone. 

Description 

ABXBIN converts a string of ASCII characters representing ones and zeroes to a 
16-bit binary number. Each character in the string is assumed to be either an 
ASCII one (30H) or an ASCII zero (31 H). The string may be from zero to 16 bytes 
long, but is terminated with a byte of all zeroes. 

Input/Output Parameters 

On input, the HL register pair contains a pointer to the string of characters. 

On output, HL contains the binary number of through 65,535. 
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INPUT 



POINTER TO MEM 1+0 



vn+0 








+1 

+2 
+3 




ASCII 

STRING 

OF "0" 

AND "1" 




+4 










+5 










+6 
















T 


LAST 










OUTPUT 






H L 


\ 


RESULT, 0-65535 








i 




MEM 1+0 






+ 1 






+2 






N. 






— 9 +3 - 


- UNCHANGED - 




+4 






+5 






+6 








r T 


LAST 


UNCHANGED 





Algorithm 

A result of 0000000000000000 is first cleared in the IX register. 

Each character is read from the string, moving from left to right. The character is 
first tested for a null, which marks the end of the string. If a null is found, the 
conversion is over. 

If the character is not a null, it is assumed to be either an ASCII zero (30H) or 
one (31 H). A value of 30H is subtracted from the character to yield a binary 
value of 00000000 or 00000001. This value is then added to the result in IX. 
Effectively, this merges the current or 1 bit into the least significant bit posi- 
tion of the IX register. As the IX register is added to itself to cause a "shift left" 
one bit position at the start of each iteration of the loop, successive and 1 bits 
move toward the left of the result. The value in IX at the end of the string 
represents the converted binary value. 

Note that the shift is done after the test for null; this ensures that the last binary 
or 1 remains in the least significant bit of IX. 

If the ASCII string was 30H, 31 H, 31 H, 30H, 31 H, 00H, the result in IX would be 
0000000000001101. 

Sample Calling Sequence 



NAME OF SUBROUTINE? ABXBIN 
HL VALUE? 40000 
PARAMETER BLOCK LOCATION? 
MEMORY BLOCK 1 LOCATION? 4000G 



MEMORY 


BLOC 


< i VALUES? 


+ 1 


49 




+ 1 1 


49 




+ 2 1 

+ 3 i 


49 
48 


-111011 IN ASCII 


+ 4 1 
+ 3 1 


49 
49 




+ 6 1 


T 


ERMINATOR 
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+ 700 

MEMORY BLOCK £: LOCATION? 
MOVE SUBROUTINE TO? 38000 
SUBROUTINE EXECUTED AT 38000 



INPUT: 




OUTPUT: 






HL= 40000 




HL= 59 RESULT 


MEMB1+ 


49 


MEMB1+ 


49 ~ 




MEMB1+ 1 


49 


MEMB1+ 1 


49 




MEMB1+ 2 


49 


MEMB1+ 2 


49 




MEMB1+ 3 


48 


MEMBI+ 3 


48 


- UNCHANGED 


MEMB1+ 4 


49 


MEMB1+ 4 


49 




MEMB1+ 5 


49 


MEMB1+ 5 


49 




MEMB1+ 6 





MEMB1+ 6 


_ 





NAME OF SUBROUTINE? 



Notes 



1. If the string of ASCII characters is longer than 16 bytes, ABXBIN will return 
a result that represents the last 16 characters of the string. 

2. If any character in the string is not a 30H or 31 H, ABXBIN will return an 
invalid result; no check is made of the validity of the ASCII characters. 

Program Listing 



7F00 



7F00 F5 

7F01 D5 

7F02 DDES 

7F04 CD7F0A 

7F07 DD2 10000 

7F0B 1600 

7F0D 7E 

7F0E B7 

7F0F 280A 

7F11 DD29 

/F13 D630 

7F15 5F 

7F16 DD19 

7F18 23 

7F19 18F2 

7F1B DDES 

7F1D El 

7F1E DDE.1 

7F20 Dl 

7F21 Fl 

7F22 

7F25 

0000 

00000 TOTAL 



C39A0A 
C9 



00100 
00110 

00 1 20 

00130 

00140 

00150 

00160 

00170 

00180 

00190 

00200 

00210 

00220 

00230 

00240 

00250 

00260 

00270 

00280 

00290 

00300 

00310 

00320 

00330 

00340 

00350 

00360 

00370 

00380 

00390 

00400 

00410 

00420 

RRORB 



ORG 7F00H 5 0522 

5* ASCII BINARY TO BINARY CONVERSION. CONVERTS A STRING * 

OF ASCII CHARACTERS REPRESENTING ZEROES AND ONES TO * 

BINARY. * 

INPUT: HL=> STRING OF CHARACTERS! TERMINATED BY * 

NULL CHARACTER. * 

OUTPUTS Hl_=BINARY NUMBER FROM - 65535 * 
■ ****#♦********#*****#*#***#****##*##****#******#******** 
v 



5* 

;* 
;* 
;* 
;* 



ABXBIN 



ABX010 



ABX020 



PUSH 

PUSH 

PUSH 

CALL 

LD 

LD 

LD 

OR 

JR 

ADD 

SUB 

LD 

ADD 

INC 

JR 

PUSH 

POP 

POP 

POP 

POP 

J'P 

RET 

END 



AF 

DE 

IX 

0A7FH 

IX ? 

D»0 

A , ( HL ) 

A 

1, ABX020 

IXi IX 

30H 

E,A 

IXsDE 

HL 

ABX010 

IX 

HL 

IX 

DE 

AF 

0A9AH 



5SAVE REGISTERS 



;#*#GET STRING LOC'N*** 
; CLEAR RESULT REGISTER 
5FOR LOOP 

5GET NEXT ASCII CHAR 

;TEST FOR NULL (END) 

;60 IF END 

5 SHI FT LEFT ONE 

; CONVERT ASCII TO OR 1 

?NOW IN E 

; MERGE WITH PREVIOUS 

; POINT TO NEXT CHARACTER 

SLOOP 'TIL END 
; TRANSFER RESULT 
; RESULT NOW IN HL 
; RESTORE REGISTERS 



;***RETURN ARGUMENT*** 
; NON-BASIC RETURN 
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ABXBIN DECIMAL VALUES 



245s 213» 221 » 229) 205? 127 i 10. 221 , 33s 0? 
5 225 05 126» 1835 405 105 2215 41 » 214s 
48s 95 5 221s 25 5 35 5 24) 242 5 221) 229 » 225 5 
221, 225) 2095 241) 195) 154) 105 201 



CHKSUM= 62 



ADEBCD: ASCII DECIMAL TO BCD CONVERSION 



System Configuration 

Model I, Model III, Model II Stand Alone. 

Description 

ADEBCD converts a string of ASCII characters representing ones and zeroes to 
a string of bed digits. Each character in the ASCII string is assumed to be either 
a valid ASCII character in the range of (30H) through 9 (39H). The ASCII string 
may be from zero to any number of bytes long, but is terminated with a byte of 
all zeroes. The result string of bed digits consists of two bed digits per byte, with 
a terminator of a "nibble" of ones. 

Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
two bytes of the parameter block contain the address of the ASCII string in 
standard Z-80 address format, least significant byte followed by most significant 
byte. The next two bytes of the parameter block contain the address of the 
result string in the same format. 

On output, the parameter block and ASCII string are unchanged. The result 
string contains a bed digit in one nibble (4 bits) for each byte in the ASCII string 
and a final nibble of ones. 





INPUT 




OUTPUT 






H L 
t 








H L 




POINTER TO PARAM+0 

1 


=> 


UNCHANGED 














I 




PARAM+0 

+ 1 


POINTER TO 

- ASCII STRING - 

(MEM 1+0) 


PARAM+0 

+ 1 


- UNCHANGED - 




+2 
+3 


POINTER TO 

- RESULT STRING - 

(MEM2+0) 


+2 
> +3 


- UNCHANGED - 
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MEM1+0 






+ 1 

+2 




ASCII 
STRING 


+3 








+4 








+5 








+6 






LAST 





MEM2+0 






+ 1 

+2 
+3 




RESERVED 

FOR 

RESULT 

STRING 


+4 






+5 






+6 









MEM 1+0 






+ 1 






+2 






=> < 


- UNCHANGED - 




+4 






+5 






+6 








; i 


' 


LAST 







MEM2+0 






+ 1 






+2 


BCD 
RESULT 
STRING 




+4 








+5 








+6 




LAST 


1111 


0000 


(or xxxxl 1 1 1 



Algorithm 

The ADEBCD subroutine performs one conversion for each ASCII digit. The 
ASCII string address and result string addresses are first picked up from the 
parameter block and put into DE and HL, respectively. 

The next ASCII character is then picked up from the ASCII string. A test is made 
for all zeroes. If the character is all zeroes a jump is made to ADE020. 

A value of 30H is subtracted from the ASCII character to convert it to a bed 
value of through 9. An RLD is then done to rotate the least significant four bits 
of A into the result nibble. The ASCII address in DE is then incremented by one, 
and the next ASCII character is picked up, converted, and stored. The ASCII 
string pointer is again incremented to point to the next byte. The result pointer 
in HL is then incremented to point to the next bed byte. A loop is then made 
back to ADE010. 

The final action is to store all ones at the next bed nibble position by either an 
RRD or RLD, depending upon the current bed digit position. 

The RRD instruction shifts the least significant four bits of the A register and the 
memory location pointed to by HL in a four-bit bed shift to the right. The RLD 
shifts left four bits in similar fashion. 

If the ASCII string was 34H, 35H, 36H, 37H, 35H, 00H, the result in the bed 
string would be 45H, 67H, 5FH. 
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Sample Calling Sequence 



NAME OF SUBROUTINE? ADEBCD 

HL VALUE? 40000 

PARAMETER BLOCK LOCATION? 40000 

PARAMETER BLOCK VALUES? 



+ ii 
+ 2 2 
+ 40 
MEMORY 
MEMORY 



POINTS TO ASCII STRING 
POINTS TO RESULT STRING 



LOCATION? 
VALUES? 



3 

4 
MEMORY 
MEMORY 
+ 1 
+ 1 1 
+ 2 



47777 

48888 


BLOCK 1 
BLOCK 1 

49 

57 

50 (- 192 IN ASCII 



TERMINATOR 
BLOCK 2 LOCATION? 
BLOCK 2 VALUES? 



47777 



48888 








CLEAR RESULT FOR EXAMPLE 



MOVE SUBROUTINE TO? 45555 
SUBROUTINE EXECUTED AT 45555 



INPUT: 

HL= 4000 

PARAM+ 

PARAM+ 

PARAM+ 

PARAM+ 

MEMB1+ 

MEMB1+ 

MEMB1+ 

MEMB1+ 

MEMB2+ 

MEMB2+ 



OUTPUTS 
HL= 40000 



1 

3 

1 

3 


1 



161 

186 

248 

.190 

49 

57 

50 









PARAM+ 
PARAM+ 
PARAM+ 
PARAM+ 
MEMB 1 + 
MEMB1+ 
MEMB1+ 
MEMB1+ 
MEMB2+ 
MEMB2+ 



16.t~ 


186 


248 


190 


49 


57 


50 
fa 





UNCHANGED 



192FH = BCD 192 



NAME OF SUBROUTINE' 



Notes 



1. An invalid result will occur if the ASCII string contains invalid ASCII deci- 
mal digits. 

2. The terminator of all ones in the result string will be in the left-hand nibble 
of the result string byte (with garbage in the right-hand byte) for an even num- 
ber of bed digits, and in the right-hand nibble of the result string byte (preceded 
by the last bed digit) for an odd number of bed digits. 

Program Listing 



7F00 



00100 
00110 
00 1 20 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 



ORS 7F00H 5 0522 



ASCII DECIMAL TO BCD CONVERSION. CONVERTS A STRING 
OF ASCII CHARACTERS REPRESENTING DECIMAL DIGITS TO 
TO BINARY-CODED-DECIMAL. 

INPUT: HL=> PARAMETER BLOCK I 

PARAM+0»+l=LOCATION OF STRING OF CHAkSs 
TERMINATED BY NULL CHARACTER 
PARAM+2,+3=L0CATI0N OF RESULT STRING 1 
OUTPUT: RESULT STRING HOLDS STRING OF BCD DIGITS, 
TERMINATED BY A NIBBLE OF ONES. 



* 
# 
# 
# 
* 



;#**#*#############*### ###### ^. ################### ^ ####### 
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7F00 F5 


00230 ADEBCD 


PUSH 


AF 


7F01 D5 


00240 


PUSH 


DE 


7F02 E5 


00250 


PUSH 


HL 


7F03 DDES 


00260 


PUSH 


IX 


7F05 CD7F0A 


00270 


CALL 


0A7FB 


7F08 E5 


00280 


PUSH 


HL 


7F09 DDE1 


00290 


POP 


IX 


7F0B DD5E00 


00300 


LD 


Es < IX+0) 


7F0E DD360I 


00310 


LD 


D> ( I X-+-1 ) 


7Fii DD6E02 


00320 


LD 


Li CIX+2) 


7FI4 DD66B3 


00330 


LD 


H. (IX+3) 


7F17 1A 


00340 ADE010 


LD 


A, CDE) 


7F18 B7 


00350 


OR 


A 


7F19 2005 


00360 


JR 


NZ?ADE020 


7F1B 3D 


00370 


DEC 


A 


7F1C ED67 


00380 


RRD 




7F1E 1816 


00390 


JR 


ADE040 


7F20 D630 


00400 ADE020 


SUB 


30H 


7F22 ED6F 


00410 


RLD 




7F24 13 


00420 


INC 


DE 


7F25 1A 


00430 


LD 


A? (DE) 


7F26 B7 


00440 


OR 


A 


7F27 2005 


00450 


JR 


NZsADE030 


7F29 3D 


00460 


DEC 


A 


7F2A ED6F 


00470 


RLD 




7F2C 1808 


00480 


JR 


ADE040 


7F2E D630 


00490 ADE030 


SUB 


30H 


7F30 ED6F 


00500 


RLD 




7F32 13 


00510 


INC 


DE 


7F33 23 


00520 


INC 


HL 


7F34 18E1 


00530 


JR 


ADE010 


7F36 DDE1 


00540 ADE040 


POP 


IX 


7F38 El 


00550 


POP 


HL 


7F39 Dl 


00560 


POP 


DE 


7F3A Fl 


00570 


POP 


AF 


7F3B C9 


00580 


RET 




0000 


00590 


END 




0000B TOTAL 


ERRORS 







5SAVE REGISTERS 



;##*GET STRING LOC'N*** 
; TRANSFER TO IX 

;PUT SOURCE PNTR IN DE 

;PUT DEST PNTR IN HL 

;GET NEXT CHARACTER 
5 TEST FOR NULL (END) 
;60 IF NOT END 
5ZERO TO -1 
; STORE TERMINATOR 
;GO TO RETURN 
; CONVERT TO 0-9 
; STORE IN BUFFER 
; POINT TO NEXT CHARACTER 
5GET NEXT CHARACTER 
;TEST FOR NULL (END) 
5 GO IF NOT END 
3 ZERO TO -1 
; STORE TERMINATOR 
;GO TO RETURN 
; CONVERT TO 0-9 
; STORE IN BUFFER 
; POINT TO NEXT CHARACTER 
JLOC'N FOR NXT 2 BCD DGTS 
5LOOP 'TIL END 
; RESTORE REGISTERS 



; RETURN TO CALLING PROG 



ADEBCD DECIMAL VALUES 



24 5' 


. 213 


? 'jd'^C 


^5 221? £ 


:29 5 : 


205 , 12 


'7? 105 


229 


225^ 


, 221 


, 94- 


5 05 


221? 


86? 


1, 221 


1 1105 


2) 


221' 


i 102 


, 3f 


26 s 


183 5 


32 » 


5 5 61. 


237 5 


103 5 


24 5 


22; 


214? 


4-8, 


237? 


111 


» 19» 2 


:6, 183 


i> 32 


5. 61 5 2 


37 5 


111. 


24? 


8? 2 


14» 48 5 


237> 


1115 


19? 


35 5 


24, 


225 1 


22 li 


225 


5 225 , 


209 s 2 


!41» 



201 



CHKSUM= 



ADXBIN: ASCII DECIMAL TO BINARY CONVERSION 



System Configuration 

Model 1, Model ill, Model II Stand Alone. 

Description 

ADXBIN converts a string of ASCII characters representing decimal digits to a 
16-bit binary number. Each character in the string is assumed to be ASCII 
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through ASCII 9 (30H through 39H). The string may be from zero to 5 bytes 
long, but is terminated with a byte of all zeroes. The value represented by the 
string may be as large as 65,535. This conversion is an "unsigned" conversion 
producing a result of through 65,535. 

Input/Output Parameters 

On input, the HL register pair contains a pointer to the string of characters. 

On output, HL contains the binary number of through 65,535. 



INPUT 



OUTPUT 



POINTER TO MEM 1+0 



MEM 1+0 

+ 1 



LAST 



STRING OF 

ASCII 

HEXADECIMAL 

CHARACTERS 







H L 




=> 


RESULT, 0-65535 


MEM1+0 

+ 1 

/ LASI 


i 




UNCHANGED 


UNCHANGED 





Algorithm 

A result of 0000000000000000 is first cleared in the IX register. 

Each character is read from the string, moving from left to right. The character is 
first tested for a null, which marks the end of the string. If a null is found, the 
conversion is over. 

If the character is not a null, it is assumed to be a valid ASCII decimal digit of 
30H through 39H. A value of 30H is subtracted from the character to yield a 
binary value of 00000000 through 00001001. This value is then added to the 
result in IX. 

Prior to the add, the partial result in the IX register is multiplied by ten. This 
moved the partial result over one decimal digit position to the left. The value in 
IX at the end of the string represents the converted binary value. 

Note that the multiplication is done after the test for null; this ensures that the 
last value of through 9 remains in the least significant decimal digit position 
of IX. 

The multiply is done by a "shift and add" technique of three adds to shift three 
bits (multiply by eight) plus one add of the "times two" shift for a "times ten" 
result. 

If the ASCII string is 34H, 35H, 30H, 31 H, 31 H, 00H, the result in IX would be 
1010111111010011. 
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Sample Calling Sequence 



NAME OF SUBROUTINE? ADXBIN 

HL VALUE? 40000 

PARAMETER BLOCK LOCATION? 

MEMORY BLOCK I LOCATION? 40000 

MEMORY BLOCK 1 VALUES? 

+ 1 49 

+ i i 50 

+ 2 1 51 |-12345 IN ASCII 

+ 3 i 52 

+ 4 1 53_ 

+ 510 TERMINATOR 

+ 600 

MEMORY BLOCK 2 LOCATION? 

MOVE SUBROUTINE TO? 37000 

SUBROUTINE EXECUTED AT 37000 



INPUT! 
HL= 40000 
MEMB1+ 
MEMB1+ 
MEMB1+ 
MEMB1+ 
MEMBI+ 
MEMB1+ 



1 

2 
3 
4 

5 



49 

50 

51 
52 
53 




OUTPUT: 
HL= 12345 
MEMB1+ 
MEMB1+ 1 
MEMB1+ 2 
MEMB1+ 3 
MEMB1+ 4 
MEMB1+ 5 



RESULT 
49 
50 

51 
52 
53 
J 



UNCHANGED 



NAME OF SUBROUTINE? 



Notes 



1. If the string of ASCII characters is longer than 5 bytes, or if the value repre- 
sented is greater than 65,535, ADXBIN will return an invalid result. 

2. If one or more characters in the string are not valid ASCII decimal digits of 
30H through 39H, ADXBIN will return an invalid result; no check is made of 
the validity of the ASCII characters. 

Program Listing 



7F00 



7F00 
7F01 
7F02 
7F04 
7F07 
7F0B 
7F0C 
7F0D 
7F0F 
7Fli 



F5 

D5 

DDES 

CD7F0A 



00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 



ORG 7F00H 5 0522 

.*««**«**#**■*.##****************************************** 
'* ASCII DECIMAL TO BINARY CONVERSION. CONVERTS A STRING* 
' OF ASCII CHARACTERS REPRESENTING DECIMAL DIGITS TO * 

P. T WARY 

INPUTS HL=> STRING OF CHARACTERS, TERMINATED BY * 

NULL CHARACTER. * 

i* OUTPUT sHL=B I NARY NUMBER FROM - 65535 * 

5 



7E 

B7 

2B15 

DD29 

DDES 



00250 
00260 
00270 
00280 
00290 



;* 
;* 

5* 

;* 

;* 



DD210000 00240 



ADXBIN 



ADX010 



PUSH 

PUSH 

PUSH 

CALL 

LD 

LD 

OR 

JR 

ADD 

PUSH 



AF 

DE 

IX 

0A7FH 

IXi0 

A> (HL) 

A 

z^adxb:; 

IX> IX 

IX 



!0 



5 SAVE REGISTERS 



;***GET STRING LOC'N*** 
; CLEAR RESULT REGISTER 

5 GET NEXT CHARACTER 

;TEST FOR NULL (END) 

;GO IF END 

5 RESULT TIMES TWO 

5SAVE RESULT 
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7F13 


DD29 


00300 


ADD 


IX? IX 


7F15 


DD29 


00310 


ADD 


IX? IX 


7F17 


Di 


00320 


POP 


DE 


7F18 


DD19 


00330 


ADD 


IX, DE 


7F1A 


D630 


00340 


SUB 


30H 


7F1C 


5F 


00350 


LD 


E,A 


7F1D 


1600 


00360 


LD 


D,0 


7F1F 


DD19 


00370 


ADD 


IX. DE 


7F21 


23 


003S0 


INC 


HL 


7F22 


1BE7 


00390 


JR 


ADX010 


7F24 


DDES 


00400 ADX020 


PUSH 


IX 


7F26 


El 


00410 


POP 


HL 


7F27 


DDE I 


00420 


POP 


IX 


7F29 


Di 


00430 


POP 


DE 


7F2A 


Fl 


00440 


POP 


AF 


7F2B 


C39A0A 


00450 


JP 


0A9AH 


7F2E 


C9 


00460 


RET 




0000 




00470 


END 




00000 TOTAL 


ERRORS 







? RESULT TIHES FOUR 
5 RESULT TIMES EIGHT 
;GET RESULT TIMES TWO 
; RESULT TIMES TEN 
; CONVERT TO - 9 
SNOW IN E 
SNOW IN DE 
? MERGE WITH PREVIOUS 

; POINT TO NEXT CHARACTER 

SLOOP 'TIL END 
5 TRANSFER RESULT 
5 RESULT NOW IN HL 

; RESTORE REGISTERS 



5*##RETURN ARGUMENT*** 
5 NON-BASIC RETURN 



ADXBIN DECIMAL VALUES 



245, 213? 221, 229s 205, 127, 10, 221, 33, 0, 
0, 126, 183, 40, 21, 221, 41, 221, 229, 221, 
41, 221, 41, 209, 221, 25, 214, 48, 95, 22, 
0, 221, 25, 35, 24, 231, 221, 229, 225, 221, 
225, 209, 241, 195, 154, 10, 201 



CHKSUM= 211 



AHXBIN: ASCII HEXADECIMAL TO BINARY CONVERSION 



System Configuration 

Model I, Model III, Model II Stand Alone. 

Description 

AHXBIN converts a string of ASCII characters representing hexadecimal digits 
to a 1 6-bit binary number. Each character in the string is assumed to be either in 
the range of ASCII through 7 (30H through 37H) or ASCII A through F (41 H 
through 46H). The string may be from zero to 4 bytes long, but is terminated 
with a byte of all zeroes. 



Input/Output Parameters 

On input, the HL register pair contains a pointer to the string of characters. 
input output 

H L 

+ 









H L 






POINTER TO MEM 1+0 


MEW 










1+0 

+ 1 
+2 

JkSJ 


' 


STRING 

OF 

ASCII 

DECIMAL 

CHARACTERS 

I 










RESULT, 0-65535 



MEM1+0 

+ 1 
+2 



__> 



UNCHANGED .. 



LAST 



UNCHANGED 



40 



On output, HL contains the binary number of through 65,535. 

Algorithm 

A result of 0000000000000000 is first cleared in the IX register. 

Each character is read from the string, moving from left to right. The character is 
first tested for a null, which marks the end of the string. If a null is found, the 
conversion is over. 

If the character is not a null, it is assumed to be in the proper range for hexadec- 
imal digits. A value of 30H is subtracted from the character to yield a value of 
through 9 or 17 through 22. This value is then tested for the second set of 
values of 17 through 22 by subtracting 10. If the original value was through 9, 
the result of this subtract will be negative, and the original value of through 9 
is used. If the result was positive, the value is now 7 through 12, and is changed 
to the proper hex value by adding 3, to produce 10 through 15. This value is 
then added to the result in IX. Effectively, this merges the four bits of the current 
value into the four least significant bit positions of the IX register. 

As the IX register is added to itself four times to cause a "shift left" four bit 
positions at the start of each iteration of the loop, successive hex digits move 
toward the left of the result. The value in IX at the end of the string represents 
the converted binary value. 

Note that the shifts are done after the test for null; this ensures that the last octal 
digit remains in the least significant four bits of IX. 

If the ASCII string was 41 H, 45H, 31 H, and 00H, the result in IX would be 
00001 01 01 11 00001, orhexOAEL 



Sample Calling Sequence 



NAME OF SUBROUTINE? AHXBIN 
HL VALUE? 50000 
PARAMETER BLOCK LOCATION? 
MEMORY BLOCK 1 LOCATION? 50000 
MEMORY BLOCK 1 VALUES? 



+ 1 70 










+ 1 1 49 
+ 2 1 65 


-F1A9 


IN ASCII 




+ 3 1 57^ 








+ 41 TERMINATOR 
+ 500 




MEMORY BLOCK 2 


LOCATION? 




MOVE SUBROUTINE 


TO? 40000 




SUBROUTINE EXECUTED AT 40000 

INPUT: OUTPUT: 

HL= 50000 HL= 61865 RESULT = FIA9H 


MEMB1+ 70 


MEMB1+ 


70 




MEMB1+ 1 49 
MEMB1+- 2 65 


MEMB1+ 1 
MEMB1+ 2 


49 

65 


-UNCHANGED 


MEMB1+ 3 57 


MEMB1+ 3 


57 




MEMB1+ 4 G 


! 


MEMB1+ 4 


_ 





NAME OF SUBROUTINE? 



41 



Notes 

1. If the string of ASCI! characters is longer than 4 bytes, AHXBIN will return a 
result that represents the last 4 characters of the string. 

2. If any character in the string is not in the proper range, AHXBIN will return 
an invalid result; no check is made of the validity of the ASCII characters. 

Program Listing 



7F00 




00100 






ORG 


7F00H 


5 0522 






00110 


;***###########**#*###*#*** ## * ################ ^. ###4f###### 






00120 


;# 


ASCII HEXADECIMAL TO BINARY CONVERSION. CONVERTS A * 






00130 


5* 


STRING OF 


ASCU CHARACTERS 


REPRESENTING HEXADECIMAL * 






00140 


;# 


DIGITS TO 


BINARY. 


# 






00150 


;* 




INPUT: 


HL=> STRING OF CHARACTERS! TERMINATED BY * 






00160 


;* 






NULL CHARACTER. 


* 






00170 


;* 




DUTPUT 


HL=BINARY NUMBER 


FROM - 65535 * 






00180 


;**************#*#*###*##*#** 1HHHHHHHHHHHHHHHHHHH( . <HHHt . ## . ## 






00190 


; 










7F00 


F5 


00200 


AHXBIN 


PUSH 


AF 


5 SAVE REGISTERS 


7F01 


D5 


00210 






PUSH 


DE 




7F02 


DDE5 


00220 






PUSH 


IX 




7F04 


CD7F0A 


00230 






CALL 


0A7FH 


;##*GET STRING LOC'N*** 


7F07 


DD2 10000 


00240 






LD 


IX, 


; CLEAR RESULT REGISTER 


7F0B 


1600 


00250 






LD 


D,0 


5 FOR LOOP 


7F0D 


7E 


00260 


AHX010 


LD 


A , < HL > 


5GET NEXT CHARACTER 


7F0E 


B7 


00270 






OR 


A 


?TEST FOR NULL (END) 


7F0F 


2819 


002S0 






JR 


Z.AHX020 


5 GO IF END 


7F11 


DD29 


00290 






ADD 


IX? IX 


5SHIFT LEFT 4 BITS 


7F13 


DD29 


00300 






ADD 


IX, IX 




7F15 


DD29 


00310 






ADD 


IX, IX 




7F17 


DD29 


00320 






ADD 


IX, IX 




7F19 


D630 


00330 






SUB 


30H 


? CONVERT TO 0-9 OR 11-16 


7F1B 


5F 


00340 






LD 


E,A 


;now in e 


7F1C 


D60A 


00350 






SUB 


0AH 


1 SUBTRACT FOR A - F 


7F1E 


CB7F 


00360 






BIT 


7, A 


5TEST RESULT 


7F20 


2003 


00370 






JR 


NZ,AHX015 


!GO IF - 9 


7F22 


C603 


00380 






ADD 


A, 3 


; CONVERT TO A - F 


7F24 


5F 


00390 






LD 


E,A 


;now in e 


7F25 


DD19 


00400 


AHX015 


ADD 


IX,DE 


;merge with PREVIOUS 


WE ffe 


mm 






j!f 


AHX010 


IZW-Wl^® character 


7F2A 


DDES 


00430 


AHX020 


PUSH 


IX 


5 TRANSFER RESULT 


7F2C 


El 


00440 






POP 


HL 




7F2D 


DDE1 


00450 






POP 


IX 


? RESTORE REGISTERS 


7F2F 


Dl 


00460 






POP 


DE 




7F30 


Fl 


00470 






POP 


AF 




7F3I 


C39A0A 


00480 






JP 


0A9AH 


;###RETURN ARGUMENT*** 


7F34 


C9 


00490 






RET 




5 NON-BASIC RETURN 


0000 




00500 






END 







00000 TOTAL ERRORS 



AHXBIN DECIMAL VALUES 



k'45, 213, 221, 229, 205, 127, 10, 221, 33 
0, 22, 0, 126, 183, 40, 25, 221, 41, 221, 
41, 221, 41, 221 i 41, 214, 48, 95, 214 
203, 127, 32, 3, 198, 3, 95, 221, 25, 35, 
24, 227, 221, 229, 225, 221, 225, 209, 241 
154, 10, 201 



10, 



195, 



CHKSUM= 197 
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AOXBIN: ASCII OCTAL TO BINARY CONVERSION 



System Configuration 

Model !, Model III, Model II Stand Alone. 

Description 

AOXBIN converts a string of ASCII characters representing octal digits to a 
1 6-bit binary number. Each character in the string is assumed to be in the range 
of ASCII through 7 (30H through 37H). The string may be from zero to 6 bytes 
long, but is terminated with a byte of all zeroes. 

Input/Output Parameters 

On input, the HL register pair contains a pointer to the string of characters. 

On output, HL contains the binary number of through 65,535. 



INPUT 



POINTER TO MEM1+0 

1 



MEM1+0 

+ 1 
+2 
+3 
+4 

LAST 



STRING 

Of 

ASCII 

OCTAL 

CHARACTERS 



OUTPUT 
H L 



RESULT, 0-65535 



5 



MEM1+0 




+ 1 




+2 


UNCHANGED 


> +3 




+4 




"X" "* 


LAST 


UNCHANGED 



Algorithm 

A result of 0000000000000000 is first cleared in the IX register. 

Each character is read from the string, moving from left to right. The character is 
first tested for a null, which marks the end of the string. If a null is found, the 
conversion is over. 

If the character is not a null, it is assumed to be in the proper range for octal 
digits. A value of 30H is subtracted from the character to yield a value of 
through 7. This value is then added to the result in IX. Effectively, this merges 
the three bits of the current value into the three least significant bit positions of 
the IX register. 

As the IX register is added to itself three times to cause a "shift left" three bit 
positions at the start of each iteration of the loop, successive octal digits move 
toward the left of the result. The value in IX at the end of the string represents 
the converted binary value. 
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Note that the shifts are done after the test for null; this ensures that the last octal 
digit remains in the least significant three bits of IX. 

If the ASCII string was 33H, 37H, 35H, and 00H, the result in IX would be 
0000000011111101, or octal 375. 

Sample Calling Sequence 



NAME OF SUBROUTINE? AOXBIN 
HL VALUE? 40000 
PARAMETER BLOCK LOCATION? 
MEMORY BLOCK 1 LOCATION? 40000 



MEMORY 


BLOCK i 


VALUES? 






+ i 


49~ 








+ 1 i 


50 








+ 2 1 
+ 3 1 


51 
52 


-123457 IN ASCII 




+ 4 i 


53 








+ 5 1 


55_ 








+ 6 1 


TERMINATOR 




+ 70 









MEMORY 


BLOCK 2 


LOCATION? 




MOVE SUBROUTINE TO? 37000 




SUBROUTINE EXECUTED AT 37000 


INPUT: 




OUTPUT: 




HL= 40000 


HL= 42799 


RESULT 


MEMB1+ 


49 


MEMB1+ 


49" 




MEMB 1 + 


1 50 


MEMB1+ 1 


50 




MEMB1+ 


2 51 


MEMB1+ 2 


51 




MEMB1+ 


3 52 


MEMB1+ 3 


52 


- UNCHANGED 


MEMB1+ 


4 53 


MEMB1+ 4 


53 




MEMB1+ 


5 55 


MEMB1+ 5 


55 




MEMB1+ 


6 


MEMB1+ 6 








NAME OF SUBROUTINE? 



Notes 



1 . If the string of ASCII characters is longer than 6 bytes, or if the octal value 
represented is greater than 177777, AOXBIN will return an invalid result. 

2. If any character in the string is not in the proper range, AOXBIN will return 
an invalid result; no check is made of the validity of the ASCII characters. 

Program Listing 



7F00 



7F00 F5 
7F01 D5 
7F02 DDES 
7F04 CD7F0A 



00100 
00110 
00 1 20 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 



ORG 7F00H 5 0522 

J******************************************************** 

;* ASCII OCTAL TO BINARY CONVERSION. CONVERTS A STRING # 
5* OF ASCII CHARACTERS REPRESENTING OCTAL DIGITS TO BI- * 

;* NARY. * 

5* INPUT: HL=> STRING OF CHARACTERS? TERMINATED BY * 
5* NULL CHARACTER. * 

5* OUTPUT:HL=BINARY NUMBER FROM - 65535 * 

5 ***#*******##*******#*#**#*#***#*#****###***#*#*****##** 



AOXBIN PUSH AF 

PUSH DE 

PUSH I X 

CALL 0A7FH 



iSAVE REGISTERS 



;###GET STRING LOC'N*** 
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7F07 


DD21 00O0 00240 


LD 


IX>0 


7F0B 


1600 


00250 


LD 


D»0 


7F0D 


7E 


00260 AOX010 


LD 


A 5 <HL) 


7F0E 


B7 


00270 


OR 


A 


7F0F 


280E 


002B0 


JR 


Z» AO X 020 


7F11 


DD29 


00290 


ADD 


IX, IX 


7F13 


DD29 


00300 


ADD 


I X 5 I X 


7F15 


DD29 


00310 


ADD 


IX, IX 


7FI7 


D630 


00320 


SUB 


30H 


7F19 


5F 


00330 


LD 


EiA 


7F1A 


DD19 


00340 AOX015 


ADD 


I X » DE 


7F1C 


23 


00350 


INC 


HL 


7F1D 


18EE 


00360 


JR 


AOX010 


7F1F 


DDES 


00370 AOX020 


PUSH 


IX 


7F21 


El 


00380 


POP 


HL 


7F22 


DDE1 


00390 


POP 


IX 


7F24 


Di 


00400 


POP 


DE 


7F25 


Fi 


00410 


POP 


AF 


7F26 


C39A0A 


00420 


JP 


0A9AH 


7F29 


C9 


00430 


RET 




0000 




00440 


END 




00000 TOTAL 


ERRORS 







I CLEAR RESULT REGISTER 
5 FOR LOOP 

5 GET NEXT CHARACTER 

;TEST FOR NULL (END) 

;GO IF END 

;SHIFT LEFT 3 BITS 



; CONVERT TO 0-7 
;NOW IN E 

! MERGE WITH PREVIOUS 
? POINT TO NEXT CHARACTER 
SLOOP 'TIL END 
; TRANSFER RESULT 



5 RESTORE REGISTERS 



;***RETURN ARGUMENT*** 

5 NON-BASIC RETURN 



AOXBIN DECIMAL VALUES 



245, 213, 221 i 229? 205 , 127) 10. 221,__33» 0, 

0, 22s 0i 126* 1B3, 40 5 14. 221, 41) 221) 

41) 221) 41) 214) 48) 95) 221 » 25) 35) 24) 

238) 221) 229 » 225) 221) 225, 209) 241) 195, 154, 

10, 201 



CHKSUM= 74 



BCADDN: MULTIPLE-PRECISION BCD ADD 



System Configuration 

Model I, Model ill, Model II Stand Alone, 

Description 

BCADDN adds a "source" string of bed digits to a "destination" string of bed 
digits and puts the result of the add into the destination string. Each of the two 
strings is assumed to be the same length. The length must be an even number of 
bed digits, but may be any number from 2 through 254. 

Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
two bytes of the parameter block contain the address of the destination string in 
standard Z-80 address format, least significant byte followed by most significant 
byte. The next two bytes of the parameter block contain the address of the 
source string in the same format. The next byte of the parameter block contains 
the number of bed digits in the two operands. This must be an even number (an 
integral number of bytes). 
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On output, the parameter block and source string are unchanged. The destina- 
tion string contains the result of the bed add. 



INPUT 







H L 






POINTER TO PARAM+0 










PARAM+0 

~f" 1 


. POINTER TO 
MEM1+0 




+ 2 
+3 


_ POINTER TO 
MEM2+0 




+4 


EVEN # OF 
BCD DIGITS 




MEM1+0 






+ 1 
+2 


BCD 
OPERAND 




+3 








+4 








+5 










+6 









OUTPUT 



UNCHANGED 



PARAM+0 

+ 1 

+2 



-- UNCHANGED 



JX 



"7 



+3 
+4 



-- UNCHANGED -- 



UNCHANGED 



P 



MEM 1+0 




+ 1 




+2 - 


RESULT 
(op1+op2) 


> +3 






+4 






+5 


_ 


_ 


+6 





MEM2+0 




MEM2+0 




+ 1 




+ 1 






BCD 






+2 


OPERAND 


+2 






2 






+3 






> +3 


UNCHANGED 


+4 






+4 




+5 






+5 














+ 6 




+6 




Algorithm 











The BCADDN subroutine performs one add for each two bed digits. The desti- 
nation string address and source string address are first picked up from the 
parameter block and put into DE and HL, respectively. The number of bytes in 
the add is then picked up and put into the BC register pair. This number is 
divided by two to obtain the total number of bytes involved. This number 
minus one is then added to the source and destination pointers so that they 
point to the least significant bytes of the source and destination strings. The 
number of bytes is then put into the B register for loop control. 

The next two bed destination digits are then picked up from the destination 
string (DE register pointer). An ADC is made of the two source string digits (HL 
register pointer). The result is adjusted for a bed add by a DAA instruction, and 
the result stored in the destination string. 
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I 
I 

I 

I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 



The source and destination string pointers are then decremented by one to 
point to the next most significant two bed digits of each operand. The B register 
count is then decremented by a DJNZ, and a loop back to BCA010 is made for 
the next add. 

The carry is cleared before the first bed add, but successive adds add in the 
carry from the preceding bed add. 

If the destination operand was 00H, 45H, 67H, 11H and the source operand 
wasOOH, 75\-\,77H, 33 H, then the number of bed digits must be 8. The result in 
the destination operand would be 01 H, 21 H, 44H, 44H. Note that the result 
may be one bed digit longer than the original number of bed digits. 

Sample Calling Sequence 



NAME OF 


• SUBROUTINE? BCADDN 




HL VALUE? 


40000 






PARAMETER 


BLOCK 


LOCATION? 


40000 


PARAMETER 


BLOCK 


VALUES? 




+ 02 


45000 






+ 2 2 


50000 






+ 4 1 


6 


6 BCD DIGITS 




+ 50 











MEMORY 


BLOCK 1 


LOCATION? 45000 


MEMORY 


BLOCK 1 


VALUES? 




+ 1 


IE 


1 








+ 1 1 


52 


> 


- 123456 IN BCD 




+ 2 1 


86 


> 








+ 30 













MEMORY 


BLOCK 


2 


LOCATION? 50000 


MEMORY 


BLOCK 


2 


VALUES? 




+ 1 


119 








+ 1 1 


5 




- 770547 IN BCD 




+ 2 I 


73 










+ 3 











MOVE SUBROUTINE 


TO? 37000 




SUBROUTINE EXECUTED AT 37000 


INPUTS 






OUTPUTS 




HL= 40000 




HL= 40000 




PARAM+ 


£ 


200 


PARAM+ 


200" 




PARAM+ 


1 


175 


PARAM+ 1 


175 




PARAM+ 


2 


80 


PARAM+ 2 


80 


- UNCHANGED 


PARAM+ 


3 


195 


PARAM+ 3 


195 




PARAM+ 


4 


6 


PARAM+ 4 


6 




MEMB1+ 





18 


MEMB1+ 


137 




MEMB1+ 


1 


52 


MEMB1+ 1 


64 


- 894003 RESUl 


MEMB1+ 


2 


86 


MEMB1+ 2 


3 




MEMB2+ 





119 


MEMB2+ 


119 




MEMB2+ 


1 


5 


MEMB2+ 1 


5 


-UNCHANGED 


MEMB2+ 


2 


7J 




MEMB2+ 2 


71 





NAME OF SUBROUTINE? 



Notes 



1. An invalid result will occur if the source or destination strings do not con- 
tain valid bed digits. 

2. The destination string is a fixed length. Leading zero bed digits must pre- 
cede the operands to handle the result, which may be one bed digit larger than 
either of the operands. 
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3. This is an "unsigned" bed add. Both operands are assumed to be positive 
bed numbers. 

Program Listing 



7F00 




00100 




ORG 


7F00H 




5 0522 






00110 


;#*#*•**##*#***##***##*####***##*♦*##########*##*##*#*###* 






00120 


5* 


MULTIPLE-PRECISION BCD ADD. 


ADDS TWO MULTIPLE-PRE- # 






00130 


5* 


CISION BCD OPERANDS? ANY 


LENGTH * 






00140 


5* 


INPUT! 


HL=> PARAMETER 


BLOCK * 






00150 


5* 




PARAM+0, +1=ADDRESS 


OF OPERAND 1 * 






00160 


;* 




PARAM+2, +3=ADDRESS 


OF OPERAND 2 * 






00170 


?* 




PARAM+4=EVEN # 


OF 


BCD DIGITS! 0-254 # 






00180 


!* 


OUTPUT: OPERAND 1 LOCATION 


HOLDS RESULT * 






00190 


",#*#***********##**#***«*#*##***#########*##########*#### 






00200 


; 










7F00 


F5 


00210 


BCADDN PUSH 


AF 




5 SAVE REGISTERS 


7F01 


C5 


00220 




PUSH 


BC 






7F02 


D5 


00230 




PUSH 


DE 






7F03 


E5 


00240 




PUSH 


HL 






7F04 


DDES 


00250 




PUSH 


IX 






7F06 


CD7F0A 


00260 




CALL 


0A7FH 




;#*#GET PB LOC'N*** 


7F09 


E5 


00270 




PUSH 


HL 




5 TRANSFER TO IX 


7F0A 


DDE! 


00280 




POP 


IX 






7F0C 


DD5E00 


00290 




LD 


E, (IX+0) 




5 GET OP 1 LOC'N 


7F0F 


DD5601 


00300 




LD 


D, (IX+l) 






7F12 


DD6E02 


00310 




LD 


L» CIX+2) 




;GET OP 2 LOC'N 


7F15 


DD6603 


00320 




LD 


H, (IX+3) 






7F18 


DD4E04 


00330 




LD 


Ci (IX+4) 




5 GET # OF BYTES 


7F1B 


CB39 


00340 




SRL 


C 




5 N/2 


7F1D 


0600 


00350 




LD 


Bf 




SNOW IN BC 


7F1F 


0B 


00360 




DEC 


BC 




?#-l 


7F20 


09 


00370 




ADD 


HL»BC 




5 POINT TO LAST 0P2 


7F21 


EB 


00380 




EX 


DE,HL 




5SWAP DE AND HL 


7F22 


09 


00390 




ADD 


HLsBC 




? POINT TO LAST OP1 


7F23 


EB 


00400 




EX 


DE,HL 




?SWAP BACK 


7F24 


41 


00410 




LD 


B,C 




S#-l BACK TO B 


7F25 


04 


00420 




INC 


B 




50RIGINAL NUMBER 


7F26 


B7 


00430 




OR 


A 




5 CLEAR CARRY FOR FIRST ADD 


7F27 


1A 


00440 


BCA010 LD 


A* (DE) 




5GET OPERAND 1 BYTE 


7F28 


8E 


00450 




ADC 


A» (HL) 




5ADD OPERAND 2 


7F29 


27 


00460 




DAA 






5DECIMAL ADJUST 


7F2A 


12 


00470 




LD 


(DE),A 




5 STORE RESULT 


7F2B 


2B 


00480 




DEC 


HL 




? POINT TO NEXT 0P2 


7F2C 


IB 


00490 




DEC 


DE 




5 POINT TO NEXT OP1 


7F2D 


10FB 


00500 




DJNZ 


BCA010 




;loop for n bytes 


7F2F 


DDE1 


00510 




POP 


IX 




; RESTORE REGISTERS 


7F31 


El 


00520 




POP 


HL 






7F32 


Dl 


00530 




POP 


DE 






7F33 


CI 


00540 




POP 


BC 






7F34 


Fl 


00550 




POP 


AF 






7F35 


C9 


00560 




RET 






? RETURN TO CALLING PROG 


0000 




00570 




END 








00000 TOTAL 


ERRORS 













BCADDN DECIMAL VALUES 



245. 197, 213, 229, 221, 229, 205, 127, 10, 229, 

221 i 225, 221, 94, 0, 221, 86, 1, 221, 110, 

2, i21> 102, 3, 221, 78, 4, 203, 57, 6, 

0, 11, 9, 235, 9, 235, 65, 4, 1B3, 26, 

142, 39, 18, 43, 27, 16, 248, 221, 225, 225, 

209, 193, 241, 201 



CHKSUM= 115 
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BCDXAD: BCD TO ASCII DECIMAL CONVERSION 



System Configuration 

Model I, Model III, Model II Stand Alone. 

Description 

BCDXAD converts a string of bed digits to a string of ASCII characters. Each 
"nibble" of four bits in the bed string is assumed to be a valid bed character of 
binary value through 9. The bed string may be from zero to any number of 
bytes long, but is terminated with a nibble of all ones. The result string of ASCII 
digits will represent ASCII decimal digits of 30H through 39H, with a terminator 
of a byte of zeroes. 



Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
two bytes of the parameter block contain the address of the bed string in stand- 
ard Z-80 address format, least significant byte followed by most significant 
byte. The next two bytes of the parameter block contain the address of the 
result string in the same format. 

On output, the parameter block is unchanged. The bed string is destroyed. The 
result string contains an ASCII decimal digit for each bed digit in the bed string 
and a final byte of zeroes. 



INPUT 



H 



-i 

POINTER TO PARAM+0 



PARAM+0 

+ 1 
+2 
+3 



POINTER TO 

BCD STRING 

{MEM 1 +0) 



POINTER TO 

RESULT STRING 

(MEM 2+0) 



EM 1+0 




+ 1 




+2 


BCD 
STRING 


+3 






+4 






+5 






+6 1 








LAST 


1111 


0000 





7 




H L 






UNCHANGED 

u_ -f J 




PARA 


M+0 
+ 1 
+2 

+3 


- UNCHANGED - 






- UNCHANGED - 






MEK 


ni+0 










+1 










+2 








^ 


+3 
+4 


DESTROYED 








+5 










+6 
LAST 






111) 
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MEM 2+0 




+ 1 
+2 
+3 


RESERVED 

FOR 

RESULT 

STRING 


+4 






+5 






+6 







MEM2+0 




+ 1 




+2 


RESULT 
STRING 


— S +3 " 






/ -I 


+4 






+5 






+6 


' 


~ 






LAST 






Algorithm 

The BCDXAD subroutine performs one conversion for each bed digit. The bed 
string address and result string address are first picked up from the parameter 
block and put into HL and DE, respectively. 

The next bed digit is then picked up from the bed string by an RLD instruction. 
A test is made for all ones. If the digit is all ones, a jump is made to BCD020. 

A value of 30H is added to the bed digit to convert it to an ASCII digit of 30H 
through 39H. This digit is then stored in the result string. The ASCII result string 
address in DE is then incremented by one, and the next bed digit is picked up, 
tested, converted, and stored. The ASCII string pointer is again incremented to 
point to the next byte. The bed pointer in HL is then incremented to point to the 
next two bed digits. A loop is then made back to BCD010. 

The final action at BCD020 is to store a null (zeroes) at the next ASCII character 
position. 

The RLD instruction shifts the least significant four bits of the A register and the 
memory location pointed to by HL in a four-bit bed shift to the left. 

If the bed string was 45H, 67H, 5FH, the result in the ASCII string would be 
34H, 35H, 36H, 37H, 35H, 00H. 



Sample Calling Sequence 



NAME OF SUBROUTINE? BCDXAD 

HL VALUE? 41000 

PARAMETER BLOCK LOCATION? 41000 

PARAMETER BLOCK VALUES? 

+ 02 44000 POINTS TO BCD STRING 

+ 22 45000 POINTS TO RESULT STRING 

+ 400 

MEMORY BLOCK 1 LOCATION? 44000 

MEMORY BLOCK 1 VALUES? 

+ 1 145' 



1 1 



47 

+ 200 
MEMORY BLOCK- 
MEMORY BLOCK 

+ 1 255 
+ 1 1 255 
+ 2 1 255 
+ 3 1 255 
+ 400 
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- 912 IN BCD PLUS TERMINATOR OF ALL ONES 



LOCATION? 
VALUES? 



45000 



■INITIALIZE RESULT FOR EXAMPLE 



I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 



MOVE SUBROUTINE TO? 47000 
SUBROUTINE EXECUTED AT 47000 



INPUT: 






OUTPUT 








HL= 41000 




HL= 41000 




PARAM+ 





224 


PARAM+ 





224 


PARAM+ 


1 


171 


PARAM+ 


1 


171 


PARAM+ 


2 


200 


PARAM+ 


2 


200 


PARAM+ 


3 


175 


PARAM+ 


3 


175 


MEMB1+ 





145 


MEMB1+ 








MEMB1+ 


1 


47 


MEMB1+ 


1 





MEMB2+ 





255 


MEMB2+ 





57 




MEMB2+ 


1 


255 


MEMB2+ 


1 


49 


-912 IN ASCII 


MEMB2+ 


jd 


255 


MEMB2+ 


2 


50 _ 




MEMB2+ 


3 


255 


MEMB2+ 


3 


TERMINATOR 



NAME OF SUBROUTINE? 

Notes 

1. An invalid result will occur if the bed string contains invalid bed digits. 

2. The bed string will be destroyed in the processing. 

Program Listing 



7F00 



7F00 
7F01 
7F02 
7F03 
7F05 
7F0B 
7F09 
7F0B 
7F0E 
7F11 
7F14 
7F17 
7F18 
7F1A 
7F1C 
7F1E 
7F20 
7F21 
7F22 
7F23 
7F25 
7F27 
7F29 
7F2B 
7F2C 
7F2D 
7F2E 



F5 

D5 

E5 

DDE5 

CD7F0A 

E5 

DDE1 

DD5E02 

DD5603 

DD6E00 

DD6601 

AF 

ED6F 

FE0F 

2B12 

C630 

12 

13 

AF 

ED6F 

FE0F 

2807 

C630 

12 

13 

23 

18E7 



00100 
00110 
00 1 20 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 



ORG 
; ************* 
;* BCD TO ASC 
;* OF BCD DIS 
;* INPUT: 
;# 
;* 
;* 

5* OUTPUT: 
; 
; ************ 



7F00H 5 0522 

*-«•*************#***********#*************-**# 
II DECIMAL CONVERSION. CONVERTS A STRING * 
ITS TO A STRING OF ASCII CHARACTERS. * 
HL=> PARAMETER BLOCK * 

PARAM+0?+l=LOCATION OF STRING OF BCD DGTS» * 
TERMINATED BY A NIBBLE OF ALL ONES. * 

PARAM+2.+3=L0CATI0N OF RESULT STRING * 
RESULT STRING HOLDS STRING OF ASCII CHARS» * 
TERMINATED BY A NULL. * 

******************************************** 



! 

BCDXAD 



BCD010 



PUSH 

PUSH 

PUSH 

PUSH 

CALL 

PUSH 

POP 

LD 

LD 

LD 

LD 

XOR 

RLD 

CP 

JR 

ADD 

LD 

INC 

XOR 

RLD 

CP 

JR 

ADD 

LD 

INC 

INC 

JR 



AF 

DE 

HL 

IX 

0A7FH 

HL 

IX 

E» <IX+2) 

D> (IX+3) 

Li (IX+0) 

H» (IX+1) 

A 

0FH 

Z » BCD020 

A 5 30H 

( DE ) 5 A 

DE 

A 

0FH 

Z » BCD020 

A»30H 

(DE)»A 

DE 

HL 

BCD010 



5SAVE REGISTERS 



;***GET STRING LOC'N*** 
; TRANSFER TO IX 

;PUT DEST PNTR IN DE 

?PUT SOURCE PNTR IN HL 

; CLEAR A 

SGET BCD DIGIT 

5TEST FOR ONES (END) 

5 GO IF END 

; CONVERT TO 0-9 ASCII 

? STORE ASCII CHAR 

? POINT TO NEXT CHARACTER 

! CLEAR A 

SGET BCD DIGIT 

5 TEST FOR ONES (END) 

;GO IF END 

5 CONVERT TO 0-9 

; STORE ASCII CHAR 

? POINT TO NEXT CHARACTER 

!LOC'N FOR NXT 2 BCD DGTS 

I LOOP 'TIL END 
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7F30 AF 


00490 


BCD020 


XOR 


A 


5 NULL 


7F31 12 


00500 




LD 


CDE)»A 


; STORE NULL AS TERMINATOR 


7F32 DDE! 


00510 




POP 


IX 


1 RESTORE REGISTERS 


7F34 El 


00520 




POP 


HL 




7F35 Dl 


00530 




POP 


DE 




7F36 Fl 


00540 




POP 


AF 




7-F37 C9 


00550 




RET 




5 RETURN TO CALLING PROG 


0000 


00560 




END 







00000 TOTAL ERRORS 



BCDXAD DECIMAL VALUES 



245 » 213* 229) 221 , 229 , 205 » 127, 10, 229? 
225 » 221 5 94, 2, 221 , 86) 3, 221 , 110, 0, 
221j 102! 1, 175s 237 » 111 5 254, 15, 40, 18, 
198, 48, 18, 19 5 175. 237, 111, 254, 15, 40, 
7, 198, 48, 18, 19, 35, 24, 231, 175, 18, 
221, 225, 225, 209, 241, 201 



221. 



CHKSUM= 72 

BCSUBT: MULTIPLE-PRECISION BCD SUBTRACT 



System Configuration 

Model I, Model III, Model II Stand Alone. 

Description 

BCSUBT subtracts a "source" string of bed digits from a "destination" string of 
bed digits and puts the result of the subtract into the destination string. Each of 
the two strings is assumed to be the same length. The length must be an even 
number of bed digits, but may be any number from 2 through 254. 

Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
two bytes of the parameter block contain the address of the destination string in 
standard Z-80 address format, least significant byte followed by most significant 
byte. The next two bytes of the parameter block contain the address of the 
source string in the same format. The next byte of the parameter block contains 
the number of bed digits in the two operands. This must be an even number (an 
integral number of bytes). 



INPUT 
H L 



POINTER TO PARAM+0 



+ 



PARAM+0 

+ 1 


POINTER TO 
MEM1+0 


+2 
+3 


POINTER TO 
MEM2+0 


+4 


EVEN # OF 
BCD DIGITS 



$ 



PARAM+0 

+ 1 
+2 
+3 
+4 



-- UNCHANGED 



OUTPUT 
H L 



UNCHANGED 



UNCHANGED 



-- UNCHANGED -- 
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MEM 1+0 






MEM1+0 














+ 1 






+ 1 




+2 




BCD 
OPERAND 


+2 


RESULT 
(op1-op2) 


+3 




1 


> +3 












/ 


+4 








+4 




















+5 








+5 






+6 








+6 




MEM2+0 






MEM 2+0 














+ 1 






+ 1 




+2 
+3 




BCD 

OPERAND 

2 


+2 

— s + 3 - 


UNCHANGED 








/ 


+4 








+4 
















+5 








+5 
















+6 




' 


+6 







On output, the parameter block and source string are unchanged. The destina- 
tion string contains the result of the bed subtract. 



Algorithm 

The BCSUBT subroutine performs one subtract for each two bed digits. The 
destination string address and source string address are first picked up from 
the parameter block and put into DE and HL, respectively. The number of bytes 
in the subtract is then picked up and put into the BC register pair. This number 
is divided by two to obtain the total number of bytes involved. This number 
minus one is then added to the source and destination pointers so that they 
point to the least significant bytes of the source and destination strings. The 
number of bytes is then put into the B register for loop control. 

The next two bed destination digits are then picked up from the destination 
string (DE register pointer). An ADC is made of the two source string digits (HL 
register pointer). The result is adjusted for a bed subtract by a DAA instruction, 
and the result stored in the destination string. 

The source and destination string pointers are then decremented by one to 
point to the next most significant two bed digits of each operand. The B register 
count is then decremented by a DJNZ, and a loop back to BCS010 is made for 
the next subtract. 

The carry is cleared before the first bed subtract, but successive subtracts sub- 
tract in the carry from the preceding bed subtract. 

If the destination operand was 00H, 45H, 67H, 11 H and the source operand 
was 00H, 75H, 77H, 33H, then the number of bed digits must be 8. The result in 
the destination operand would be 99H, 69H, 89H, 78H. 
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Sample Calling Sequence 



NAME OF SUBROUTINE? BCSUBT 

HL VALUE? 50000 

PARAMETER BLOCK LOCATION? 50000 

PARAMETER BLOCK VALUES? 

+02 52000 

+ 2 2 54000 

+ 414 

+ 500 

MEMORY BLOCK 1 LOCATION? 52000 

MEMORY BLOCK 1 VALUES? 

+ 1 149 

+ 1 1 112_ 

-t200 

MEMORY BLOCK 2 LOCATION? 54000 

MEMORY BLOCK 2 VALUES? 

+ 1 147 

+ 1 1 131_ 

4 2 

MOVE SUBROUTINE TO? 45000 

SUBROUTINE EXECUTED AT 45000 

INPUT: 

HL= 50000 

PARAM+ 

PARAM+ 1 

mm i 

PARAM+ 4 
MEMB1+ 
MEMB1+ 1 
MEMB2+ 
MEMB2+ 1 



4 BCD DIGITS 



-9570 IN BCD 



9383 IN BCD 





OUTPUT: 
HL= 50000 






32 


PARAM+ 


32 




203 


PARAM+ 1 


203 




240 

210 


PARAM+ 2 
PARAM+ 3 


240 
210 


-UNCHANGED 


4 


PARAM+ 4 


4 




149 

112 


MEMB1+ 

MEMB1+ 1 


1 

135 


-187 RESULT I 


147 
131 


MEMB2+ 

MEMB2+ 1 


147" 
131 


-UNCHANGED 



NAME OF SUBROUTINE? 



Notes 



1. An invalid result will occur if the source or destination strings do not con- 
tain valid bed digits. 

2. This is an "unsigned" subtract. Both operands are assumed to be positive 
bed numbers. 

Program Listing 



7F00 



7F00 F5 
7F01 C5 
7F02 D5 
7F03 E5 
7F04 DDES 



00100 
00110 
00 1 20 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 



ORG 7F00H ! 0522 

;# MULTIPLE-PRECISION BCD SUBTRACT. SUBTRACTS TWO MUL- * 



5* PLE-PRECISION BCD OPERANDS? ANY LENGTH. 

;# INPUT: HL=> PARAMETER BLOCK 

?# PARAM+0»+l=ADDRESS OF OPERAND 1 

!# PARAM+2,+3=ADDRESS OF OPERAND 2 

5* PARAM+4=EVEN # OF BCD DIGITS. 0-254 

5* OUTPUT: OPERAND 1 LOCATION HOLDS RESULT 



# 
* 
# 
# 
* 
# 



!########**#######*##########**###***#**#**#*##*####*##** 



BCSUBT 



PUSH 
PUSH 
PUSH 
PUSH 
PUSH 



AF 
BC 
DE 
HL 
IX 



5 SAVE REGISTERS 



54 



7F06 CD7F0A 


00260 


CALL 


0A7FH 


7F09 E5 


00270 


PUSH 


HL 


7F0A DDEi 


00280 


POP 


IX 


7F0C DD5E00 


00290 


LD 


E» <IX+0> 


7F0F DD5601 


00300 


LD 


D) (IX+1) 


7F12 DD6E02 


00310 


LD 


L? (IX+2) 


7F15 DD6603 


00320 


LD 


H, (IX+3) 


7F18 DD4E04 


00330 


LD 


C, (IX+4) 


7F1B CB39 


00340 


SRL 


C 


7F1D 0600 


00350 


LD 


B»0 


7F1F 0B 


00360 


DEC 


BC 


7F20 09 


00370 


ADD 


HL 5 BC 


7F21 EB 


00380 


EX 


DE?HL 


7F22 09 


00390 


ADD 


HL » BC 


7F23 EB 


00400 


EX 


DEsHL 


7F24 41 


00410 


LD 


B»C 


7F25 04 


00420 


INC 


B 


7F26 B7 


00430 


OR 


A 


7F27 1A 


00440 BCS010 


LD 


A? <DE) 


7F2B 9E 


00450 


SBC 


A, (HL) 


7F29 27 


00460 


DAA 




7F2A 12 


00470 


LD 


<DE)»A 


7F2B 2B 


00480 


DEC 


HL 


7F2C IB 


00490 


DEC 


DE 


7F2D 10F8 


00500 


DJNZ 


BCS010 


7F2F DDEI 


00510 


POP 


IX 


7F31 El 


00520 


POP 


HL 


7F32 Dl 


00530 


POP 


DE 


7F33 CI 


00540 


POP 


BC 


7F34 Fl 


00550 


POP 


AF 


7F35 C9 


00560 


RET 




0000 


00570 


END 




00000 TOTAL 


ERRORS 







;#*#GET PB LOC'N*** 
; TRANSFER TO IX 

5 SET OP 1 LOC'N 

5GET OP 2 LOC'N 

;GET # OF BYTES 

?N/2 

5 NOW IN BC 

; POINT TO LAST 0P2 

5 SWAP DE AND HL 

5 POINT TO LAST 0P1 

5 SWAP BACK 

;#-i BACK TO B 

I ORIGINAL NUMBER 

5 CLEAR CARRY FOR FIRST ADD 

;GET OPERAND 1 BYTE 

5 SUB OPERAND 2 

5DECIMAL ADJUST 

5 STORE RESULT 

5 POINT TO NEXT 0P2 

; POINT TO NEXT 0P1 

SLOOP FOR N BYTES 
; RESTORE REGISTERS 



; RETURN TO CALLING PROG 



BCSUBT DECIMAL. VALUES 



245j 


197) 


213) 


229 » 


221 » 


225? 


221 •> 


94 1 


2» 221s 102i 3i 


221 


0j 11» 9, 


235 s 


9) 2 


158) 


39 , 


18? A3» 27 


209» 


193> 


24 1 » 


201 



221) 229) 205 » 127» 
5 221» 86, 1) 22 t- 
) 78) 4> 203) 57) 6» 
235) 65) 4) 183) 26) 
16) 248) 221) 225 5 



10) 229) 
110i 



CHKSUM= 131 



BXBINY: BINARY TO ASCII BINARY CONVERSION 



System Configuration 

Model, 1, Model III, Model II Stand Alone. 

Description 

BXBINY converts a 1 6-bit binary number to a string of ASCII binary digits. Each 
character in the string will be either an ASCII one (30H) or an ASCII zero (31 H). 
The result string \^ill be 16 bytes long, and is terminated with a byte of all 
zeroes. The user must specify a buffer area of 17 bytes to hold the result string. 
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Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block for 
BXBINY. The first two bytes of the parameter block contain the 16-bit binary 
value to be converted, in standard Z-80 16-bit representation, least significant 
byte followed by most significant byte. The next two bytes of the parameter 
block contain the buffer address for the 17-byte buffer that will hold the result. 

On output, the buffer has been filled with the resulting string of ASCII ones and 
zeroes, terminated by a null. The parameter block contents remain unchanged. 





INPUT 




OUTPUT 






H L 

— I 








H L 




POINTER TO PARAM+0 


=> 


— i ■ 

UNCHANGED 


















PARAM+0 

+ 1 


16-BIT VALUE 

TO BE 
CONVERTED 


PARAM+0 

+ 1 


- UNCHANGED - 




+2 
+3 


BUFFER 
ADDRESS 

(MEM 1+0) 


+2 


- UNCHANGED - 





MEM1+0 




+ 1 




+2 




+3 




+4 




+5 


RESERVED 




FOR 


+6 


RESULT 


+7 




+8 




+9 




+ 10 




+ 11 




+ 12 




+ 13 




+ 14 






- 


+ 15 




+ 16 





MEM 1+0 






+ 1 






+2 




> 


+3 
+4 


16 
ASCII 

CHARAC- 
TERS 


/ 




+5 








+6 








+7 








+8 








+9 






+ 10 






+ 11 






+ 12 




\ 


+ 13 




> 


/ 




+ 14 






+ 15 
+ 16 










Algorithm 

BXBINY goes through 1 6 iterations to convert each of the bits in the input value 
to an ASCII 30H or 31 H (zero or one). The value to be converted is put into 
register pair HL from the parameter block. For each iteration, HL is shifted left 
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one bit position. The carry is set if the bit shitted out is a one, or reset it the bit 
shifted out is a zero. 

The carry is tested and either a 30H (0) or 31 H (1) is stored in the next buffer 
position. A pointer to the buffer is picked up from the parameter block and 
maintained in the DE register pair; it is incremented by one as each result byte 
is stored. The buffer is filled from low-order memory address to high-order 
memory address, corresponding to the processing of the bits from HL. 

If the binary value to be converted was 0000000000001101, the buffer would 
contain 30H, 30H, 30H, 30H, 30H, 30H, 30H, 30H, 30H, 30H, 30H, 30H, 31 H, 
31 H, 30H, 31 H, 00H on return. 

Sample Calling Sequence 



NAME OF SUBROUTINE? BXBINY 

HL VALUE? 40000 

PARAMETER BLOCK LOCATION? 40000 

PARAMETER BLOCK VALUES? 



+ 02 


43680 


VALUE TO BE CONVERTED = 101010101 


+ 2 2 


50000 








+ 40 













ME MORY 


BLOCK 


1 LOCATION? 50000 


MEMORY 


BLOCK 


1 VALUES? 






+ 02 













+ 22 













+ 42 













+ 62 













+ 82 







-INITIALIZE BUFFER FOR EXAMPLE 


+ 10 2 








+ 12 2 








+ 14 2 








+ 16 1 


255 








+ 17 








MEMORY 


BLOCK 


2 LOCATION? 




MOVE SUB ROUT I 


NE TO? 37000 




SUBROUTINE EX 


ECUTED AT 


37000 


INPUT: 
HL= 40000 




OUTPUT: 
HL= 40000 




PARAM+ 





160 


PARAM+ 





160 




PARAM+ 


1 


170 


PARAM+ 


1 


170 


- UNCHANGED 


PARAM+ 


2 


80 


PARAM+ 


2 


80 




PARAM+ 


3 


195 


PARAM+ 


3 


195_ 




MEMB1+ 








MEMB1+ 





49 ~ 




MEMB1+ 


1 





MEMB 1 + 


1 


48 




MEMB1+ 


2 





MEHB 1 + 


2 


49 




MEMB1+ 


3 





MEMB 1 + 


3 


48 




MEMB1+ 


4 





MEMB1+ 


4 


49 




MEMB1+ 


5 





MEMB 1 + 


5 


48 




MEMB1+ 


6 





MEMB1+ 


6 


49 




MEMB1+ 


7 





MEMB 1 + 


7 


48 


- RESULT OF 1( 


MEMB1+ 


S 





MEMB1+ 


8 


49 




MEMB1+ 


9 


£ 


MEMB 1 + 


9 


48 




MEMB1+ 


10 





MEMB 1 + 


10 


49 




MEMB1+ 


11 





MEMB1+ 


11 


48 




MEMB1+ 


12 





MEMB I + 


12 


48 




MEMB1+ 


13 





MEMB 1 + 


13 


48 




MEMB1+ 


14 





MEMB1+ 


14 


48 




MEMB1+ 


15 





MEMB 1 + 


15 


48 




MEMB1+ 


16 


255 


MEMB1+ 


16 


T 


ERMINATOR 



IN ASCII 



NAME OF SUBROUTINE? 
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Notes 

1. Leading ASCII zeroes may be present in the result. 

2. No invalid result may occur. 



Program Listing 



7F00 



7F00 
7F0I 
7F02 
7F03 
7F04 
7F06 
7F09 
7F0A 
7F0C 
7F0F 
7F12 
7F15 
7F18 
7F1A 
7F1C 
7F1D 
7F1F 
7F20 
7F21 

mi 

7F25 
7F26 
7F28 
7F29 
7F2A 
7F2B 
7F2C 
0000 
00000 



F5 

C5 

D5 

E5 

DDES 

CD7F0A 

E5 

DDE1 

DD6E00 

DD6601 

DD5E02 

DD5603 

0610 

3E30 

29 

3001 

3C 

12 

13 

A 0F6 

12 

DDE1 
El 
Dl 
CI 

Fl 
C9 

TOTAL 



00100 
00110 
00 1 20 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 

88*48 

00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
ERRORS 



ORG 7F00H 5 0522 

;* BINARY TO ASCII BINARY CONVERSION. CONVERTS A 16-BIT * 

5* BINARY VALUE TO A STRING OF ASCII ONES AND ZEROES * 

5* TERMINATED BY A NULL. * 

?* INPUT: HL=> PARAMETER BLOCK * 

?* PARAM+0,+l=16~BIT VALUE * 

5* PARAM+2,+3=BUFFER ADDRESS * 

5* OUTPUT:BUFFER FILLED WITH 16 ASCII ONES AND ZER- * 

5* OES, TERMINATED BY NULL * 

;##*######################«.#####4 H (.4H H H(. # 4j. #1 (. ############# ^. # 



BXBINY 



BXB010 



BXB020 



PUSH 

PUSH 

PUSH 

PUSH 

PUSH 

CALL 

PUSH 

POP 

LD 

LD 

LD 

LD 

LD 

LD 

ADD 

JR 

INC 

LD 

INC 

DJNZ 
XOR 

LD 

POP 

POP 

POP 

POP 

POP 

RET 

END 



AF 

BC 

DE 

HL 

IX 

0A7FH 

HL 

IX 

L, (IX+0) 

H, (IX+1) 

E, (IX+2) 

D, (IX+3) 

B,16 

A,30H 

HL.HL 

NCBXB02C 

A 

<DE),A 

DE 

BXB010 

A 

<DE),A 

IX 
HL 
DE 
BC 
AF 



SSAVE REGISTERS 



;*#*GET PB LOC'N*** 
5 TRANSFER TO IX 

5 PUT VALUE INTO HL 
;PUT BUFFER ADD IN DE 



;16 ITERATIONS 
?ASCII ZERO 
5SHIFT 
?GO IF 

;ascii 

; STORE 
5 POINT 

5LOOP 
;ZERO 

; STORE NULL 

5 RESTORE REGISTERS 



VALUE LEFT 
ZERO BIT 
ONE NOW IN A 
ONE OR ZERO 
TO NEXT SLOT 
TIL END 



1 BIT 



[RETURN TO CALLING PROG 



BXBINY DECIMAL VALUES 



245, 197, 213, 
k'21, k'25 » 221) 
2 , 22 1 ? 86 ? 3 s 
1? 60! 18. 19, 



225) 



229, 221, 229, 205, 127, 
110, 0, 221, 102, 1, 221 
6, 16, 62, 48, 41, 48, 
16, 246, 175, 18, 221, I 



10, 229, 
94, 



209, 193, 241 ■ 



201 



CHKSUM= 34 
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BXDECL: BINARY TO ASCII DECIMAL CONVERSION 



System Configuration 

Model I, Model III, Model II Stand Alone, 

Description 

BXDECL converts a 16-bit binary number to a string of ASCII decimal digits. 
Each character in the string will be in the range of ASCII through 9 (30H 
through 39H). The result string will be 5 bytes long, and is terminated with a 
byte of all zeroes. The user must specify a buffer area of 6 bytes to hold the 
result string. The conversion is an "unsigned" conversion of the 16-bit value. 

Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block for 
BXDECL. The first two bytes of the parameter block contain the 16-bit binary 
value to be converted, in standard Z-80 16-bit representation, least significant 
byte followed by most significant byte. The next two bytes of the parameter 
block contain the buffer address for the 6-byte buffer that will hold the result. 

On output, the buffer has been filled with the resulting string of ASCII charac- 
ters, terminated by a null. The parameter block contents remain unchanged. 







INPUT 

H L 








OUTPUT 

H L 






POINTER TO PARAM+0 

i 


=> 


UNCHANGED 


















PARAM+0 

+ 1 


16-BIT VALUE 

TO BE 
CONVERTED 


PARAM+0 

+ 1 


- UNCHANGED - 




+2 
+3 


BUFFER 
ADDRESS 
(MEM 1+0) 


+2 


- UNCHANGED - 





MEM 1+0 

+ 1 
+2 
+3 
+4 
+5 



RESERVED 

FOR 

RESULT 




Algorithm 

BXDECL goes through 5 iterations to convert the input values. The value to be 
converted is put into register pair HL from the parameter block. For each itera- 
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1 

The count minus one is then added to 30H to yield the proper ASCII digit of 30H 
through 39H. This ASCII digit is then stored in the buffer. This operation is I 
repeated for the five powers of ten involved. 



tion, a power of ten is subtracted from the contents of HL, starting with the 
largest power of ten that can be held in the 16-bit input value, 10000. Subse- 
quent powers subtracted are 1000, 100, 10, and 1. 

The first operation subtracts 10,000 as many times as possible from the original 
value. For each subtract, a count is incremented. If the original value were 
34,567, for example, the first operation would subtract 10,000 from 34,567 four 
times. On the fourth time, the result would "go negative" indicating that no 
additional subtracts of the power could be done. 



Sample Calling Sequence 

NAME OF SUBROUTINE? BXDECL 

HL VALUE? 40000 

PARAMETER BLOCK LOCATION? 40000 

PARAMETER BLOCK VALUES? 

+ 02 12345 VALUE TO BE CONVERTED 

+22 50000 



+ 400 




MEMORY BLOCK 1 LOCATION? 5000 


MEMORY BLOCT 


C 1 VALUES? 


+ 020 




+ 220 


-INITIALIZE BUFFER FOR 


+ 410 




+5 1 255 




+ 600 


MEMORY BLOCK 2 LOCATION? 


MOVE SUBROUTINE TO? 45000 


SUBROUTINE EXECUTED AT 45000 


INPUTS OUTPUTS 


HL= 40000 HL= 40000 


PARAM+ 57 PARAM+ 57 " 


PARAM+ 1 48 PARAM+ 1 48 


PARAM+ 2 80 PARAM+ 2 80 


PARAM+ 3 1<5 


'5 PARAM+ 3 195 



RESULT OF 12345 IN ASCII 
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I 
I 



BXDECL uses a subroutine called SUBPWR. SUBPWR is called to perform the 
subtracts. SUBPWR is entered with BC containing the negated power of ten to 
be subtracted and the current "residue" of the value to be converted in HL. A 
count of — 1 is initially put into A. This count is incremented for each subtract. 
As each subtract is done, a test is made of the result. If it is negative, an add is 
done to restore the last result in HL. A value of 30H is then added to the value of 
A and the result is stored in the buffer. The pointer to the buffer is then incre- « 
mented by one. I 

SUBPWR returns to the code in BXDECL by testing the current power of ten. It 
returns to one of five points at BXD010 through BXD050. This structure is nec- 
essary to avoid use of CALL instructions, which are not relocatable. 



I 



The buffer is filled from low-order memory address to high-order memory ad- 
dress, corresponding to the processing of the powers of ten. I 

If the binary value to be converted was 1010111111010011, the buffer would 
contain 34H, 35H, 30H, 31 H, 31 H, 00H on return. 



I 
I 
I 
I 
I 
I 
I 
I 
I 



MEMB1+ 





MEMBU- 


49 ~ 




MEMB1+ 1 





MEMB1+ i 


50 




MEMB1+ 2 





MEMB1+ 2 


51 


- UNCHANGED 


MEMB1+ 3 





MEMBl-t- 3 


52 




MEMB1+ 4 





MEMBU- 4 
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MEMBI+ 5 


255 


MEMB1+ 5 








NAME OF SUBROUTINE? 



Notes 



1. Leading ASCII zeroes may be present in the result. 

2. No invalid result may occur. 

Program Listing 



7F00 



7F00 

7F01 
7F02 
7F03 
7F04 
7F06 
7F09 
7F0A 
7F0C 
7F0F 
7F12 
7F15 
7F1B 
7F1B 
7F1D 
7F20 
7F22 
7F25 
7F27 
7F2A 
7F2C 
7F2F 
7F31 
7F32 
7F33 
7F35 
7F36 
7F37 
7F3B 
7F39 
7F3A 
7F3C 
7F3D 
7F3E 
7F40 



F5 

C5 

D5 

E5 

DDES 

CD7F0A 

E5 

DDE1 

DD6E00 

DD6601 

DD5E02 

DD5603 

01F0DS 

IBID 

0118FC 

1S1B 

019CFF 

1813 

01F6FF 

180E 

01FFFF 

1809 

AF 

12 

DDE1 

El 

Dl 

CI 

Fl 

C9 

3EFF 

3C 

09 

38FC 

B7 



00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 
00560 



ORG 7F00H 5 0522 

5* BINARY TO ASCII DECIMAL CONVERSION. CONVERTS A 16-BIT* 

5* BINARY VALUE TO A STRING OF ASCII DECIMAL DIGITS TER-* 

!* MINATED BY A NULL, * 

5* INPUT: HL=> PARAMETER BLOCK # 

;# PARAM+0 5 +l = 16 BIT VALUE * 

;* PARAM+2*+3=BUFFER ADDRESS * 

;* OUTPUT: BUFFER FILLED WITH 5 ASCII DIGITS* TERM- * 

?* INATED BY NULL * 



BXDECL 



BXD010 
BXD020 
BXD030 
BXD040 
BXD050 



SUBPWR 
SUB010 



PUSH 
PUSH 
PUSH 
PUSH 

PUSH 

CALL 

PUSH 

POP 

LD 

LD 

LD 

LD 

LD 

JR 

LD 

JR 

LD 

JR 

LD 

JR 

LD 

JR 

XOR 

LD 

POP 

POP 

POP 

POP 

POP 

RET 

LD 

INC 

ADD 

JR 

OR 



AF 
BC 
DE 
HL 

IX 

0A7FH 

HL 

IX 

L? ( IX+0) 

H» C IX + 1) 

E» ( IX+2) 

D 5 ( IX+3) 

BC» -10000 

SUBPWR 

BC.-1000 

SUBPWR 

BC»-100 

SUBPWR 

BC?-10 

SUBPWR 

BC»-1 

SUBPWR 

A 

( DE ) t A 

IX 

HL 

DE 

BC 

AF 

A»0FFH 

A 

HL»BC 

C 5 SUB010 

A 



5SAVE REGISTERS 



;***GET PB LOC'N*** 
! TRANSFER TO IX 

5 PUT VALUE INTO HL 

5PUT BUFFER ADD IN DE 

!10 TO THE FOURTH 
5FIND FIRST DIGIT 
;10 TO THE THIRD 
5FIND SECOND DIGIT 
;10 TO THE SECOND 
5FIND THIRD DIGIT 
5 10 TO THE FIRST 
;FIND FOURTH DIGIT 
!10 TO THE ZEROTH 
5FIND LAST DIGIT 
5 ZERO 

5 STORE NULL 
5 RESTORE REGISTERS 



5 RETURN TO CALLING PROG 

S-l TO A 

fBUMP DIGIT COUNT 

5 SUBTRACT PWR OF TEN 

5 GO IF NOT NEGATIVE 

; CLEAR CARRY 



61 



7F41 


ED42 


00570 


SBC 


HLiBC 


7F43 


C630 


00580 


ADD 


A?30H 


7F45 


12 


00590 


LD 


<DE>?A 


7F46 


13 


00600 


INC 


DE 


7F47 


79 


00610 


LD 


A?C 


7F48 


FEF0 


00620 


CP 


0F0H 


7F4A 


28D1 


00630 


JR 


Z?BXD010 


7F4C 


FE18 


00640 


CP 


18H 


7F4E 


28D2 


00650 


JR 


Z»BXD020 


7F50 


FE9C 


00660 


CP 


9CH 


7F52 


28D3 


00670 


JR 


Z5BXD030 


7F54 


FEF6 


00680 


CP 


0F6H 


7F56 


28D4 


00690 


JR 


Z?BXD040 


7F58 


18D7 


00700 


JR 


BXD050 


0000 




00710 


END 




00000 TOTAL 


ERRORS 







? RESTORE LAST RESULT 

! CONVERT TO ASCII 

; STORE IN BUFFER 

? POINT TO NEXT SLOT 

;GET LSB OF PWR 

5TEST FOR -10000 

5 SO IF -10000 

5 TEST FOR -1000 

;GO IF -1000 

;TEST FOR -100 

5 60 IF -100 

5 TEST FOR -10 

;G0 IF -10 

5MUST BE -1 



I 
I 

I 



BXDECL DECIMAL VALUES 



245? 197 5 213? 229? 221? 229» 205? 127? 105 229s 

221? 225? 221? 110, 0? 221? 102. 1 ? 221. 94* 

2? 221s 86? 3? 1? 240? 216s 24? 29? 1? 

24? 252? 24? 24? li 156? 255s 24? 19? 1? 

246? 255? 24? 14? 1? 255? 255? 24? 9? 175? 

18? 221? 225? 225? 209? 193? 241? 201? 62? 255s 

60? 9? 56? 252? 183? 237? 66? 198? 48? 18? 

19? 121? 254? 240? 40? 209? 254? 24? 40? 210? 

2545 156? 405 211? 254? 246? 40? 212? 24? 215 



CHKSUM= 190 



BXHEXD: BINARY TO ASCII HEXADECIMAL CONVERSION 



System Configuration 

Mode! I, Model III, Model II Stand Alone. 



Description 

BXHEXD converts a 16-bit binary number to a string of ASCII hexadecimal 
digits. Each character in the string will be in the range of ASCII through 9 (30H 
through 37H) or ASCII A through F (41 H through 46H). The result string will be 
4 bytes long, and is terminated with a byte of all zeroes. The user must specify a 
buffer area of 5 bytes to hold the result string. 

Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block for 
BXHEXD. The first two bytes of the parameter block contain the 16-bit binary 
value to be converted, in standard Z-80 16-bit representation, least significant 
byte followed by most significant byte. The next two bytes of the parameter 
block contain the buffer address for the 5-byte buffer that will hold the result. 
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I 



On output, the buffer has been filled with the resulting string of ASCII charac- 
ters, terminated by a null. The parameter block contents remain unchanged. 







INPUT 

H L 








OUTPUT 

H L 
1 






I 

POINTER TO PARAM+0 




UNCHANGED 




? 






t 












PARAM+0 

+ 1 


16-BIT VALUE 

TO BE 
CONVERTED 


PARAM+0 

+ 1 


- UNCHANGED - 




+2 
+3 


BUFFER 
ADDRESS 
(MEM 1+0) 


+2 


- UNCHANGED - 





MEM 1+0 

+ 1 
+2 
+3 
+4 



RESERVED 
FOR 

RESULT 



MEM 1+0 



$ 




Algorithm 

BXHEXD goes through 4 iterations to convert each of the bits in the input value 
to an ASCII 30H through 39H (zero through nine) or41 H through 46H (A through 
F). The value to be converted is put into register pair HL from the parameter 
block. For each iteration, HL is shifted four bit positions with the four bits from 
the shift going into the four least significant bits of the A register. 

A test is then made of the value in A. If it is in the range through 9, a "bias" 
value of 30H is set aside. If it is in the range of 10 through 15, a bias value of 
37H is saved. The bias value is then added to the contents of A, converting the 
three bits to an ASCII octal digit of 30H through 39H or41H through 46H. The 
ASCII character is then stored in the user buffer. A pointer to the buffer is picked 
up from the parameter block and maintained in the DE register pair; it is incre- 
mented by one as each result byte is stored. The buffer is filled from low-order 
memory address to high-order memory address, corresponding to the process- 
ing of the bits from HL. 

If the binary value to be converted was 1111000000111101, the buffer would 
contain 45H, 30H, 33H, 44H, 00H on return. 



Sample Calling Sequence 

NAME OF SUBROUTINE? BXHEXD 

HL VALUE? 4000® 

PARAMETER BLOCK LOCATION? 40000 

PARAMETER BLOCK VALUES? 

+ 02 4660 VALUE TO BE CONVERTED 
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+22 50000 








+ 400 








MEMORY BLOCK 1 


LOCATION? 


50000 


MEMORY BLOCK i 


VALUES? 




+ 020 










+ 2 2 
+ 4 1 255 


- INITIALIZE BUFFER FOR EXAMPLE 


+ 500 








MEMORY BLOCK" 2 


LOCATION? 




MOVE SUBROUTINE TO? 37777 




SUBROUTINE EXECUTED AT 37777 


INPUT: 




OUTPUT: 




HL= 40000 




HL= 40000 




PARAM+ 


52 


PARAM+ 


52 ~ 




PARAM+ i 
PARAM+ 2 


IB 
80 


PARAM+ 1 
PARAM+ 2 


18 
80 


-UNCHANGED 


PARAM+ 3 


195 


PARAM+ 3 


195j 




MEMB1+ 





MEMB1+ 


49 ~ 




MEMB1+ 1 
MEMB1+ 2 






MEMB1+ 1 
MEMB1+ 2 


50 
51 


-RESULT OF 1 


MEMB1+ 3 
MEMB1+ 4 



255 


MEMB1+ 3 
MEMB1+ 4 


52 

TERMINATOR 



NAME OF SUBROUTINE? 



Notes 



1. Leading ASCII zeroes may be present in the result. 

2. No invalid result may occur. 

Program Listing 



7F00 



7F00 
7F01 
7F02 
7F03 
7F04 
7F06 
7F09 
7F0A 
7F0C 
7F0F 
7F 1 2 
7F15 
71 1.8 
7F1A 
7f 1 B 
7F1C 
7i ID 
7F1E 
7F1F 



F5 

C5 

D5 

E5 

DDES 

CD7F0A 

E5 

DDE! 

DD6E0B 

DD6601 

DD5E02 

DD5603 

0604 

AF 

29 

17 

29 

17 

29 



00100 
00110 
00120 

00130 
00140 
00150 

00160 
00170 

001B0 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 



ORG 7F00H ; 0522 

1* BINARY TO ASCII HEXADECIMAL CONVERSION. CONVERTS A # 

?* 16-BIT BINARY VALUE TO A STRING OF ASCII HEX DIGITS 

;* TERMINATED BY A NULL. 

!* INPUT: HL=> PARAMETER BLOCK 

5* PARAM+0 5 +l = 16--BIT VALUE 

5* PARAM+2?+3=BUFFER ADDRESS 

5* OUTPUT .-BUFFER FILLED WITH FOUR ASCII HEX DIGITS, 

5* TERMINATED BY NULL 

;********#********#********#*###****#**#**##**####**#***# 



BXHEXD 



BXH010 



PUSH 

PUSH 

PUSH 

PUSH 

PUSH 

CALL 

PUSH 

POP 

LD 

LD 

LD 

LD 

LD 

XOR 

ADD 

RLA 

ADD 

RLA 

ADD 



AF 

BC 

DE 

HL 

IX 

0A7FH 

HL 

IX 

l» nx+0) 

H. (IX+1) 

E« (IX+2) 

Di <IX+3) 

6*4 

A 

HL , HL 

HL. , HL 
HL 5 HL 



5SAVE REGISTERS 



;***GET PB LOC'N*** 

;PUT VALUE INTO HL 

5 PUT BUFFER ADD IN DE 

5 ITERATION COUNT 
5 ZERO A 

5 SHIFT OUT BIT LEFT 
; SHIFT INTO A 
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7F20 


17 


00410 


RLA 






7F21 


29 


00420 


ADD 


HL»HL 




7F22 


17 


00430 


RLA 






7F23 


F5 


00440 


PUSH 


AF 


;SAVE 4 BITS 


7F24 


0E30 


00450 


LD 


C»30H 


;ASCII ZERO 


7F26 


D60A 


00460 


SUB 


10 


iTEST FOR -- 9 


7F2S 


CB7F 


00470 


BIT 


7,A 


5TEST SIGN 


7F2A 


2002: 


00480 


JR 


NZ» BXH020 


?GO IF 0-9 


7F2C 


0E37 


00490 


LD 


C»37H 


; ADJUSTMENT FOR A - F 


7F2E 


Fl 


00500 BXH020 


POP 


AF 


; RESTORE ORIGINAL BITS 


7F2F 


81 


00510 


ADD 


A 5 C 


;ADD IN ASCII BIAS 


7F30 


12 


00520 


LD 


( DE ) » A 


5 STORE CHARACTER 


7F31 


13 


00530 


INC 


DE 


; POINT TO NEXT SLOT 


7F32 


10E6 


00540 


DJNZ 


BXH010 


SLOOP 'TIL 4 


7F34 


AF 


00550 


XOR 


A 


5 ZERO 


7F35 


12 


00560 


LD 


( DE ) 5 A 


; STORE NULL 


7F36 


DDE! 


00570 


POP 


IX 


5 RESTORE REGISTERS 


7F38 


El 


00580 


POP 


HL 




7F39 


Dl 


00590 


POP 


DE 




7F3A 


CI 


00600 


POP 


BC 




7F3B 


Fl 


00610 


POP 


AF 




7F3C 


C9 


00620 


RET 




! RETURN TO CALLING PROS 


0000 




00630 


END 






00000 TOTAL 


ERRORS 









BXHEXD DECIMAL VALUES 



245 1 


197? 


21 3 » 


229 5 


221 1 


225? 


221 5 


1105 


2 s 2215 86 » 3> 


65 4 


23 » 


41» 2 


3 5 41 


5 23 5 


203 , 


127, 


32 5 


25 14 


16i 


230 5 


175. 


1B» 2: 


201 









221 5 229 1 205, 127» 105 229! 
05 221 5 102, 1, 221 , 94, 

175s 41 5 23, 41 5 
2455 145 48, 2145 10. 
55s 241s 1295 I85 195 
11 5 225? 2255 209s 193 5 241 » 



CHKSUM= 231 



BXOCTL: BINARY TO ASCII OCTAL CONVERSION 



System Configuration 

Model 1, Mode! Ill, Model II Stand Alone. 

Description 

BXOCTL converts a 16-bit binary number to a string of ASCII octal digits. Each 
character in the string will be in the range of ASCII through 7 (30H through 
37H). The result string will be 6 bytes long, and is terminated with a byte of all 
zeroes. The user must specify a buffer area of 7 bytes to hold the result string. 

Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block for 
BXOCTL. The first two bytes of the parameter block contain the 16-bit binary 
value to be converted, in standard Z-80 16-bit representation, least significant 
byte followed by most significant byte. The next two bytes of the parameter 
block contain the buffer address for the 7-byte buffer that will hold the result. 
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On output, the buffer has been filled with the resulting string of ASCII charac- 
ters, terminated by a null. The parameter block contents remain unchanged. 



INPUT 
H L 



-1 

POINTER TO PARAM+0 








M+0 

+ 1 


16-BIT 
VALUE 




+2 
+3 


POINTER 

- TO BUFFER - 

(MEM 1+0) 





4> 



PARAM+0 

+ 1 

+2 

+3 



$ 



-- UNCHANGED 



OUTPUT 



1 

UNCHANGED 



UNCHANGED -- 



I 
I 
I 



MEM 1+0 

+ 1 
+2 
+3 
+4 

+5 
+6 
+7 



RESERVED 

FOR 

RESULT 



» 



MEM1+0 




+ 1 
+2 


RESULT 

IN 

ASCII 


> +3 






+4 






+5 






+6 






+7 






Algorithm 

BXOCTL goes through 6 iterations to convert each of the bits in the input value 
to an ASCII 30H through 37H (zero through seven). The value to be converted is 
put into register pair HL from the parameter block. For each iteration except the 
first, HL is shifted three bit positions with the three bits from the shift going into 
the three least significant bits of the A register. (The first iteration performs only 
one shift to handle the leading octal digit of or 1.) 

A value of 30H is then added to the contents of A. This converts the three bits to 
an ASCII octal digit of 30H through 37H. The ASCII character is then stored in 
the user buffer. A pointer to the buffer is picked up from the parameter block 
and maintained in the DE register pair; it is incremented by one as each result 
byte is stored. The buffer is filled from low-order memory address to high-order 
memory address, corresponding to the processing of the bits from HL. 

If the binary value to be converted was 1000000000001101, the buffer would 
contain 31 H, 30H, 30H, 30H, 31 H, 35H, 00H on return. 

Sample Calling Sequence 



NAME OF SUBROUTINE? BXOCTL 

HL VALUE? 40000 

PARAMETER BLOCK LOCATION? 40000 
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I 



PARAMETER BLOCK VALUES? 






+ 2 


12345 VALUE TO BE CONVERTED = 030071 OCTAL 


+ 2 2 


45000 




+ 4 









MEMORY 


BLOCK 


1 LOCATION? 


^5000 


MEMORY 


BLOCK 


1 VALUES? 




+ 1 


255 






+ 1 1 


255 






+ 2 1 


255 






+ 3 1 


255 


- INITIALIZE BUFFER FOR EXAMPLE 


+ 4 1 


255 






+ 5 1 


255 






+ 6 1 


255 






+ 7 









MEMORY 


BLOCK 


2 LOCATION? 




MOVE SUBROUTINE TO? 37777 




SUBROUTINE EXECUTED AT 37777 


INPUT: 




OUTPUT: 




HL= 40000 


HL= 40000 




PARAM+ 


57 


PARAM+ 


57 


PARAM+ 


1 48 


PARAM+ 1 


48 


PARAM+ 


2 200 PARAM+ 2 


200 


PARAM+ 


3 175 PARAM+ 3 


175 


MEMB1+ 


255 MEMB1+ 


48 




MEMB1+ 


1 255 MEMB1+ 1 


51 




MEMB1+ 


2 255 MEMB1+ 2 


48 


-RESULT = 039371 IN ASCII 


MEMB1+ 


3 255 MEMB1+ 3 


48 




MEMB1+ 


4 255 MEMB1+ 4 


55 




MEMB1+ 


5 255 MEMB1+ 5 


49 




MEMB1+ 


6 255 MEMB1+ 6 


TERMINATOR 



NAME OF SUBROUTINE? 

Notes 

1. Leading ASCII zeroes may be present in the result. 

2. No invalid result may occur. 

3. The most significant ASCI! character will always be either a zero (30H) or 
a one (31 H) since 16 bits is not an integer multiple of 3 bits. 

Program Listing 



7F00 



7F00 F5 
7F01 C5 
7F02 D5 
7F03 E5 
7F04 DDE5 
7F06 CD7F0A 
7F09 E5 
7F0A DDE1 



00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 



ORG 7F00H 5 0522 

;* BINARY TO ASCII OCTAL CONVERSION. CONVERTS A 16-BIT * 
;* BINARY VALUE TO A STRING OF ASCII OCTAL DIGITS TERM- * 

i* INATED BY A NULL. * 

;* INPUTS HL=> PARAMETER BLOCK * 

;* PARAM+0 5 +l=16-BIT VALUE * 

;# PARAM+2s+3=BUFFER ADDRESS * 

S* OUTPUT s BUFFER FILLED WITH SIX ASCII OCTAL DIG- * 

;* ITS TERMINATED BY NULL * 



BXOCTL 



PUSH 
PUSH 
PUSH 
PUSH 
PUSH 
CALL- 
PUSH 
POP 



AF 

BC 

DE 

HL 

IX 

0A7FH 

HL 

IX 



5SAVE REGISTERS 



;***GET PB LOC'N*** 
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7F0C DD6E00 


00300 


LD 


L» <IX+0> 


7F0F DD6601 


00310 


LD 


H, (IX + 1) 


7F12 DD5E02 


00320 


LD 


E» (IX+2) 


7F15 DD3603 


00330 


LD 


D, (IX+3) 


7F18 0606 


00340 


LD 


B.6 


7F1A AF 


00350 


XOR 


A 


7FIB 1B05 


00360 


JR 


BXO020 


7F1D AF 


00370 BXO010 


XOR 


A 


7F1E 29 


00380 


ADD 


HL.HL 


7F1F 17 


00390 


RLA 




7F20 29 


00400 


ADD 


HL.HL 


7F21 17 


00410 


RLA 




7F22 29 


00420 BXO020 


ADD 


HLsHL 


7F23 17 


00430 


RLA 




7F24 0E30 


00440 


LD 


C»30H 


7F26 81 


00450 


ADD 


A.C 


7F27 12 


00460 


LD 


(DE)»A 


7F28 13 


00470 


INC 


DE 


7F29 10F2 


00480 


DJNZ 


BXO010 


7F2B AF 


00490 


XOR 


A 


7F2C 12 


00500 


LD 


<DE>,A 


7F2D DDE1 


00510 


POP 


IX 


7F2F El 


00520 


POP 


HL 


7F30 Dl 


00530 


POP 


DE 


7F31 CI 


00540 


POP 


BC 


7F32 Fl 


00550 


POP 


AF 


7F33 C9 


00560 


RET 




0000 


00570 


END 




00000 TOTAL 


ERRORS 







5 PUT VALUE INTO HL 

I PUT BUFFER ADD IN DE 

5 ITERATION COUNT 
5 ZERO A 

IFOR FIRST DIGIT 
SZERO A 

? SHI FT OUT BIT LEFT 
! SHIFT INTO A 



5 ASCI I ZERO 

;ADD IN ASCII BIAS 

! STORE CHARACTER 

5 POINT TO NEXT SLOT 

SLOOP 'TIL 6 

5 ZERO 

5 STORE NULL 

5 RESTORE REGISTERS 



5 RETURN TO CALLING PROG 



CHKSUM: CHECKSUM MEMORY 



BXOCTL DECIMAL VALUES 



245. 19/, 21 J, 229 , 221, 229, 205, 127, 10, 2: 

221, 225, 1--21, 110, 0, 221 » 102, 1, 221, 94, 

2, 221, 86, 3, 6, 6, 175, 24, 5, 175, 

41, -Z3, 41, 23, 41, 23, 14, 48, 129, IB, 

19, 16, 242, 175, IB, 221, 225, 225, 209, 193, 

241, 201 



CHKSUM= 10 



System Configuration 

Model I, Model III, Model II Stand Alone. 

Description 

CHKSUM checksums a block of memory for verification of data. The checksum 
performed is a simple additive 8-bit checksum. 



Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
two bytes of the parameter block define the starting address for the block of 
memory to be checksummed in standard Z-80 address format, least significant 
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byte followed by most significant byte. The next two bytes of the parameter 
block contain the number of bytes in the block to be checksummed. 

On output, HL contains the checksum of the block of memory. 



INPUT 



H 



POINTER TO PARAM+0 



PARAM+0 



POINTER TO 

START OF 

BLOCK (MEM1+0) 



# OF BYTES 
IN BLOCK 







OUTPUT 








H 


L 


=> 





CHECKSUM 


PARAM+0 

+ 1 

+2 

X ) +3 










- UNCHANGED - 






UNCHANGED - 





MEM1+0 

+ 1 
+2 
+3 
+4 
+5 
+6 





MEM1+0 




BYT 

TO 

_ CHECKS 


"ES 
UMMED . 


+ 1 

+2 

y +3 


UNCHANGED 






+4 








+5 




- 


• „ 


+6 J 



Algorithm 

The CHKSUM subroutine first picks up the number of bytes in the block and 
puts it into the HL register pair. Next, the starting address is put into the IX 
register. The A register is cleared for the checksum. 

The loop at CHK01 adds in each byte from the memoy block. The count in HL 
is decremented by a subtract of one in BC, and the pointer in IX is adjusted to 
point to the next memory byte. 

Sample Calling Sequence 



NAME OF SUBROUTINE? CHKSUM 

HL VALUE? 43000 

PARAMETER BLOCK LOCATION? 4300E 

PARAMETER BLOCK VALUES? 

+ 2 45000 START OF BLOCK 



+ 2 


'^1 


8 


8 BY 1 tb IN BLl 


JUK 


+ 4 












MEMORY 


BLOCK 


i LOCATION? 


45000 


MEMORY 


BLOCK 


1 VALUES? 




+ 


1 


1 






+ i 


1 


2 






+ 2 


1 


4 






+ 3 
+ 4 


i 
i 


8 
16 


- SAMPLE DATA 




+ 5 


i 


32 






+ 6 


l 


64 






+ 7 


l 


128 






+ S 





3 
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MEMORY BLOCK 2 LOCATION? 
MOVE SUBROUTINE TO? 46000 
SUBROUTINE EXECUTED AT 46000 



INPUT: 

HL= 43000 

PARAM+ 

PARAM+ 1 

PARAM+ 2 

PARAM+ 

MEMB1+ 

MEMB1+ 

MEMB1+ 

MEMB1+ 

MEMB1+ 

MEMB1+ 

MEMB1+ 

MEMB1+ 



3 


1 

3 
4 
5 
6 
7 



200 
175 
8 


1 

4 
8 
16 
3^ 

64 
128 



OUTPUT: 

HL= 255 

PARAM+ 

PARAM+ 

PARAM+ 

PARAM+ 

MEMB1+ 

MEMB1+ 

MEMB1+ 

MEMB1+ 

MEMB1+ 

MEMB1+ 

MEMB1+ 

MEMB1+ 



1 

3 

1 

3 
4 
5 
6 
7 



CHECKSUM = 
200" 
175 
8 

1 



1 +2 + 4.,.+ 128 



4 

8 

16 

32 

64 

128 



UNCHANGED 



1 

I 



NAME OF SUBROUTINE? 



Notes 



1. The CHKSUM subroutine is used to compute the checksum for all subrou- 
tines in this book. 



Program Listing 



7F00 



7F00 

7F01 

7F02 

7F03 

7F05 

7F08 

7F09 

7F0B 

7F0E 

7F11 

7F14 

7F17 

7F18 

7F1A 

7F1D 

7F1E 

7F21 

7F23 

7F24 

7F26 

7F28 

7F29 

7F2B 

7F2D 

7F2E 

7F2F 



F5 

C5 

D5 

DDE5 

CD7F0A 

E5 

DDE1 

DD6E02 

DD6603 

DD5E00 

DD5601 

D5 

DDE1 

010100 

AF 

DD8600 

DD23 

B7 

ED42 

20F6 

6F 

2600 

DDE1 

Dl 

CI 

Fl 



00100 

00110 

00120 

00130 

00140 

00150 

00160 

00170 

00180 

00190 

00200 

00210 

00220 

00230 

00240 

00250 

00260 

00270 

00280 

00290 

00300 

00310 

00320 

00330 

00340 

00350 

00360 

00370 

00380 

00390 

00400 

00410 

00420 

00430 

00440 



ORG 7F00H 5 0522 

!* CHECKSUM MEMORY. CHECKSUMS A BLOCK OF MEMORY. * 
5* INPUT: HL=> PARAMETER BLOCK * 

; * PARAM+0i+l=STARTING ADDRESS OF BLOCK 

'* PARAM+2,+3=# OF BYTES IN BLOCK 

?* OUTPUT:HL=ADDITIVE CHECKSUM 



* 
# 

* 



i*****************************^*^*********************^*^ 



CHKSUM 



CHK010 



PUSH 

PUSH 

PUSH 

PUSH 

CALL 

PUSH 

POP 

LD 

LD 

LD 

LD 

PUSH 

POP 

LD 

XOR 

ADD 

INC 

OR 

SBC 

JR 

LD 

LD 

POP 

POP 

POP 

POP 



AF 

BC 

DE 

IX 

0A7FH 

HL 

IX 

L» (IX+2) 

Hi (IX+3) 

E» (IX+0) 

Di (IX+1) 

DE 

IX 

BCi 1 

A 

Ai (IX+0) 

IX 

A 

HLiBC 

NZ.CHK010 

L,A 

H 5 

IX 

DE 

BC 

AF 



5SAVE REGISTERS 



;***GET PB LOC'N*** 
? TRANSFER HL TO IX 

5GET # OF BYTES 

?GET STARTING ADDRESS 

? TRANSFER TO IX 

5 DECREMENT VALUE 

; CLEAR CHECKSUM 
; CHECKSUM 

5BUMP ADDRESS PNTR 
; CLEAR CARRY 
! DECREMENT COUNT 
!GO IF NOT DONE 

SMOVE CHECKSUM TO HL 

5RESTORE REGISTERS 
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7F30 C39A0A 00450 
7F33 C*? 00460 

0000 00470 

00000 XOTAL ERRORS 



JP 

RET 

END 



0A9AH 



;##*RETURN STATUS*** 
; NON-BASIC RETURN 



CHKSUM DECIMAL VALUES 



245 
225 
221 
221 
111 
10. 



197i 213? 221? 229» 205 1 127? 105 2295 221; 
i 221 » 1105 2» 221. 102'5 3i 221 > 94? 05 
S65 Is 2135 221» 225 5 Is Is 05 175s 
134? 0s 221 5 35s 1835 237s 665 32s 246 5 
38 5 05 221 5 2255 209 5 1935 241 5 1955 154 5 
201 



CHKSUM= 245 



CLEARS: CLEAR SCREEN 



System Configuration 
Model I, Model III. 

Description 

CLEARS clears the video screen or outputs a given character to fill the screen. 
For a clear screen, the character is normally a blank (20H), or a graphics "all 
off" character (080 H). 



Input/Output Parameters 

On input, the HL register pair contains the character to be used in the fill. (The 
L register contains the 8-bit character while the H register contains zero.) On 
output, the screen has been cleared or filled. 



INPUT 



H 


L 





FILL CHAR 



^> 



OUTPUT 



H 



UNCHANGED 



Algorithm 

The CLEARS subroutine is similar to a "fill memory" subroutine except that the 
memory to fill is defined as 3C00H through 3FFFH. 

The start of video d isplay memory, 3C00H, is put into HL and the character for 
the fill is transferred to B. The loopatCLE010 fills a byte at a time. For each fill, 
the video display memory pointer is incremented by one and the contents of 
the H register are tested. If H holds 40H, the last screen location has been filled. 
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Sample Calling Sequence 

NAME OF SUBROUTINE? CLEARS 

HL VALUE? 65 CLEAR CHARACTER OF "A" 

PARAMETER BLOCK LOCATION? 

MEMORY BLOCK 1 LOCATION? 

MOVE SUBROUTINE TO? 37000 

SUBROUTINE EXECUTED AT 37000 

INPUT: OUTPUT: 

HL= 65 HL= 65 UNCHANGED 

NAME OF SUBROUTINE? 

Notes 

1. The CLEARS subroutine clears the screen in approximately 21 millisec- 
onds. 

Program Listing 



7F00 




00100 






00110 






00120 






00130 






00140 






00150 






00160 






00170 


7F00 


F5 


00180 


7F01 


C5 


00190 


7F02 


E5 


00200 


7F03 


CD7F0A 


00210 


7F06 


45 


00220 


7F07 


21003C 


00230 


7F0A 


70 


00240 


7F0B 


23 


00250 


7F0C 


7C 


00260 


7F0D 


FE40 


00270 


7F0F 


20F9 


002B0 


7F11 


El 


00290 


7F12 


Ci 


00300 


7F13 


Fi 


00310 


7F14 


C9 


00320 


0000 




00330 


00000 TOTAL 


ERRORS 



ORG 7F00H 5 0520 

;* CLEAR SCREEN. CLEARS THE SCREEN OR FILLS THE SCREEN * 

!# WITH ANY GIVEN CHARACTER. * 

l# INPUT: HL=CHARACTER FOR CLEAR. NORMALLY 20H OR 80H * 

;* OUTPUT: NONE * 
;#**###**#*#****##*#####*j(.##«.## ##### #*«.* <( . #< . #####Jf . #4( . ##4! . ##4( . 
; 



CLEARS 



CLE010 



PUSH 
PUSH 

PUSH 

CALL 

LD 

LD 

LD 

INC 

LD 

CP 

JR 

POP 

POP 

POP 

RET 

END 



AF 

BC 

HL 

0A7FH 

B,L 

HLs3C00H 

< HL) » B 

HL 

A,H 

40H 

NZ«CLE010 

HL 

BC 

AF 



;SAVE REGISTERS 



;#**GET CLEAR CHAR*## 

? TRANSFER TO B 

? START OF SCREEN ADDRESS 
?FILL SCREEN BYTE 
5BUMP SCREEN POINTER 
5GET MS BYTE OF POINTER 
,"TEST FOR END+1 
5 CONTINUE IF NOT END 

? RESTORE REGISTERS 



? RETURN TO CALLING PROGRAM 



CLEARS DECIMAL VALUES 



245 1 
112i 
201 



197» 229 > 205 » 127» 10) 69 » 33» 0» 60, 
35s 124* 254> 64 5 32i 249, 225? 193. 241 ■ 



CSCLNE: CLEAR SCREEN LINES 



CHKSUM= 89 



System Configuration 
Model I, Model III. 
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Description 

CSCLNE clears from one to 16 screen lines with blank (20H) characters. The 
lines cleared may be any set of contiguous lines on the screen, starting with any 
given line. 



Input/Output Parameters 

On input, the H register contains the start line number, from through 1 5, and 
the L register contains the end line number, from through 15. On output, the 
designated screen lines have been cleared and HL is unchanged. 



INPUT 


=> 


OUTPUT 


H L 


H L 

| 


START LINE 
0-15 


END LINE 
0-15 


UNCHANGED 

I +1 1 



Algorithm 

The CSCLNE subroutine first finds the total number of lines involved in the 
clear. The start line number is subtracted from the end line number, and this 
value is incremented by one. Next, this line count is multiplied by 64 to find the 
total number of video display memory bytes to be cleared (CSC010). 

The starting video memory location is then found by multiplying the starting 
line number by 64 (CSC020) and adding this value to the screen start location of 
3C00H. 

The loop at CSC030 stores a blank character in the screen locations involved. 
HL contains the pointer to screen memory, which is incremented each time 
through the loop, and DE contains the number of screen bytes to be filled. The 
count in DE is tested for zero by the "load and OR" operation. 

Sample Calling Sequence 



NAME OF SUBROUTINE? CSCLNE 

HL VALUE? 1800 START LINE = 7, END LINE = 8 

PARAMETER BLOCK LOCATION? 

MEMORY BLOCK 1 LOCATION? 

MOVE SUBROUTINE TO? 55000 

SUBROUTINE EXECUTED AT 55000 

INPUT: OUTPUT: 

HL= 1B00 HL= 1800 UNCHANGED 

NAME OF SUBROUTINE? 



Notes 

1. Use the CLEARS subroutine to clear the entire screen. 

2. No check is made on the validity of the line numbers in HL. If the wrong 
values are used, the system may crash. 

3. The end line number must be greater or equal to the start line number. 

4. Use an 80H in location 7F23H for a "graphics" clear. 
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Program Listing 



7F00 



7F00 

7F01 

7F02 

7F03 

7F04 

7F07 

7F0B 

7F09 

7F0A 

7F0B 

7F0C 

7F0E 

7F10 

7F11 

7F13 

7FI4 

7F15 

7F16 

7F17 

7F19 

7F1B 

7F1C 

7FIE 

7F21 

7F22 

7F24 

7F25 

7F26 

7F27 

7F28 

7F2A 

7F2B 

7F2C 

7F2D 

7F2E 

0000 

00000 



F5 

C5 

05 

E5 

CD7F0A 

E5 

7D 

94 

3C 

6F 

2600 

0606 

29 

10FD 

E5 

Di 

El 

6C 

2600 

0606 

29 

10FD 

01003C 

09 

3620 

23 

IB 

7A 

B3 

20FS 

El 

Dl 

CI 

Fl 

C9 

TOTAL 



00100 

00110 

00120 

00130 
00140 

00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
002B0 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
ERRORS 



ORG 7F00H 5 0522 

',#*********#***######*******#*##*###*###*##i ( .x. #ii . ### #x ii ,H#** 
5* CLEAR SCREEN LINE. CLEARS THE SCREEN FROM A GIVEN * 
5* START LINE THROUGH A GIVEN END LINE * 

S* INPUT: HL=START LINE(H) , END LINE(L ) 0-15 * 

5* OUTPUT: SCREEN LINES CLEARED WITH BLANKS * 



CSCLNE 



CSC010 



CSC020 



CSC030 



PUSH 

PUSH 

PUSH 

PUSH 

CALL 

PUSH 

LD 

SUB 

INC 

LD 

LD 

LD 

ADD 

DJNZ 

PUSH 

POP 

POP 

LD 

LD 

LD 

ADD 

DJNZ 

LD 

ADD 

LD 
INC 

DEC 

LD 

OR 

JR 

POP 

POP 

POP 

POP 

RET 

END 



AF 

BC 

DE 

HL 

0A7FH 

HL 

A,L 

H 

A 

L»A 

H»0 

B»6 

HL,HL 

CSC010 

HL 

DE 

HL 

L»H 

H»0 

B,6 

HL,HL 

CSC020 

BC3C00H 

HL,BC 

<HL>,' ' 

HL 

DE 

A,D 

E 

NZ,CSC030 

HL 

DE 

BC 

AF 



SSAVE REGISTERS 



;###GET LINE NOS*** 

SSAVE 

!END LINE NUMBER 

? END-START 

! TOTAL NUMBER OF LINES 

? TOTAL TO L 

SNOW IN HL 

! ITERATION COUNT 

!# LINES * 64=# CHARS 

5 LOOP 'TIL DONE 
? TRANSFER # CHARACTERS 
?NOW IN DE 
SORIGINAL LINE #S 
5START LINE # 
SNOW IN HL 
S ITERATION COUNT 

5FIND DISPLACEMENT 

SLOOP 'TIL DONE 
5 START OF SCREEN 
5FIND START MEMORY LOC'N 

S STORE BLANK 

SBUMP SCREEN POINTER 

5 DECREMENT COUNT 

STEST COUNT 



I 

I 

1 



SGO IF 

! RESTORE 



DE NE ZERO 
REGISTERS 



! RETURN TO CALLING PROG 



CSCLNE DECIMAL VALUES 



245, 197, 213, 229, 205, 127, 10, 229, 125, 
60, HI, 38, 0, 6, 6, 41, 16, 253, 229, 
209, 225, 108, 38, 0, 6, 6, 41, 16, 253, 
1. 0, 60, 9, 54, 32, 35, 27, 122, 179, 
32, 248, 225, 209, 193, 241, 201 



148, 



CSTRNG: STRING COMPARE 



CHKSUM= 13E 



System Configuration 

Model I, Model III, Model II Stand Alone. 
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Description 

CSTRNG compares two strings and tests for equality, string 1 < string 2 and 
string 1 > string 2, By "string," we mean two blocks of memory that may or 
may not be of equal length containing byte-oriented data. This includes not 
only the BASIC definition of character strings, but other types of data as well, 
such as two strings of binary data. The comparison is an "unsigned" compari- 
son where bytes in the range 080H through OFFH are considered larger than 
zero. 



Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
byte of the parameter block holds the number of bytes in string 1 . The next two 
bytes contain the address of string 1 in standard Z-80 address format, least 
significant byte followed by most significant byte. The next byte in the parame- 
ter block holds the number of bytes in string 2. The next two bytes are the 
address of string 2 in Z-80 address format. The next byte of the parameter block 
(PARAM+6) is reserved for the result of the comparison. 

On output, PARAM+6 holds a zero if the strings are equal, a minus number if 
string! < string 2, or a positive number if string 1 > string 2. For two strings of 
unequal length where the longer string holds the shorter string as a "substring," 
the result in PARAM+ 6 is negative if string 1 is shorter, or positive if string 2 is 
shorter. 



INPUT 



H 



OUTPUT 



POINTER TO PARAM+0 



=> 



UNCHANGED 



PARAM+0 


# BYTES STRING 1 


+ 1 

+2 


ADDRESS 

- OF STRING 1 -- 

(MEM 1+0) 


+3 


# BYTES STRING 2 


+4 
+5 


ADDRESS 

- OF STRING 2 -- 

(MEM 2+0) 


+6 


RESERVED 
FOR RESULT 



=? 



MEM 1+0 

+ 1 
+2 
+3 
+4 
+5 
+6 
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STRING 



PARAM+0 

+ 1 

+2 

N. 

+3 

+4 

+5 
+6 



MEM 1+0 

+ 1 
+2 
+3 
+4 
+5 
+6 



-- UNCHANGED 



UNCHANGED 



UNCHANGED 



UNCHANGED 



RESULT: 0=SAME. 
1 = 1>2. -1 = 1<2 



» 



UNCHANGED 



+0 




MEM2+0 












+ 1 




+ 1 












+2 


STRING 


+2 






2 


: => < 




+3 






UNCHANGED 


+4 






+4 














+5 






+5 




+6 






+6 





Algorithm 

The CSTRNG subroutine first compares the lengths of string 1 and string 2. It 
puts the smallest length value into the B register (CST010) and the comparison 
result of string 1 length— string 2 length in the C register. 

Next, the address of string 2 is put into the IY register and the address of string 1 
into the HL register. 

The code at CST020 is the comparison loop. A subtract of each consecutive 
byte of the strings is done. Two conditions result from the subtract. If the sub- 
tracts are zero for the total number of bytes of the shorter string, the size com- 
parison in C is put into the result. If this size comparison was zero, the strings 
are of equal length and are identical. If the size comparison was not zero, the 
comparison value reflects the "substring" condition detailed above. 

If any subtract is not zero, the strings are unequal, and a jump to CST040 puts 
the sense of the comparison in the result. 



Sample Calling Sequence 

NAME OF SUBROUTINE? CSTRNG 

HL VALUE? 40000 

PARAMETER BLOCK LOCATION? 40000 

PARAMETER BLOCK VALUES? 



+ 1 


3 




3 BYTES IN STRING 1 


+ 1 2 


45000 


STRING 1 ADDRESS 


+ 3 1 


5 


5 BYTES IN STRING 2 


+ 42 


46000 


STRING 2 ADDRESS 


+ 6 1 







+ 70 







MEMORY 


BLOCK 1 


LOCATION? 4500 


MEMORY 


BLOCK 1 


VALUES? 


+ 1 


i 






+ 1 1 


255 


-STRING 1 


+ 2 1 


3 






+ 30 







MEMORY 


BLOCK 2 


LOCATION? 4600 


MEMORY 


BLOCK 2 


VALUES? 


+ 1 


1 






+ 1 1 


254 






+ 2 1 


3 


-STRING 2 


+ 3 1 


4 






+ 4 1 


5 






+ 50 







MOVE SUBROUTINE TO? 38000 


SUBROUTINE EXECUTED AT 38000 


INPUT: 




OUTPUT: 


HL= 40000 




HL= 40000 
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PARAM+ 





3 


PARAM+ 





3 




PARAM+ 


i 


200 


PARAM+ 


1 


200 




PARAM+ 
PARAH+ 


2 
3 


175 
5 


PARAH+ 
PARAM+ 


3 


175 
5 


-UNCHANGED 


PARAH+ 


4 


176 


PARAM+ 


4 


176 




PARAM+ 


5 


179 


PARAM+ 


5 


179 




PARAM+ 
MEMB1+ 


6 




1 


PARAM+ 
MEMB1+ 


6 



1 RESULT: STRING 1 > STRING 2 

1 - 


MEMB1+ 


1 


255 


MEMB1+ 


1 


255 




MEMB1+ 


2 


3 


MEMB1+ 


2 


3 




MEMB2+ 
MEHB2+ 



1 


1 
254 


MEMB2+ 
MEMB2+ 




1 


1 
254 


-UNCHANGED 


MEMB2+ 


2 


3 


MEMB2+ 


2 


3 




MEMB2+ 


3 


4 


MEMB2+ 


3 


4 




MEMB2+ 


4 


5 


MEMB2+ 


4 


5 





NAME OF SUBROUTINE? 



Notes 



1 . The maximum number of bytes in either string may be 256, represented by 
in the # of bytes parameter. 

2. Output is a signed number at PARAM+6. 



Program Listing 



I 
I 
I 
I 
I 
I 
I 
I 



7F00 



7F00 
7F01 
7F02 
7F03 
7F05 
7F07 
7F0A 
7F0B 
7F0D 
7F10 
7F12 
7F15 
7F18 
7F1A 
7F1C 
7F1F 
7F21 
7F23 
7F25 
7F28 
7F2B 
7F2C 
7F2E 



F5 

C5 

E5 

DDES 

FDE5 

CD7F0A 

E5 

DDE1 

DD4600 

0E00 

DD7E00 

DDBE03 

2S0B 

3807 

DD4603 

0E01 

1802 

0EFF 

DD6E04 

DD6605 

E5 

FDE1 

DD6E01 



00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 



ORG 7F00H 10520 



S* STRING COMPARE. COMPARES TWO STRINGS. 

;# INPUT: HL=> PARAMETER BLOCK 

!* PARAM+0=# BYTES OF STRING 1 

5* PARAM+1?+2=ADDRESS OF STRING 1 

;* PARAM+3=# BYTES OF STRING 2 

3* PARAM+4»+5=ADDRESS OF STRING 2 

!* PARAM+6=RESERVED FOR RESULT 

;# OUTPUT :PARAM+6=0 IF STRINGS EQUAL? - IF 

5* STRINGKSTRING2. + IF STRING1>STRING2 

;*#*####**#***#*###*#*#*#*#*######*##*##**########*##*#** 



# 
* 

* 

# 
# 
# 
* 



CSTRNG 



CST005 
CST010 



PUSH 

PUSH 

PUSH 

PUSH 

PUSH 

CALL 

PUSH 

POP 

LD 

LD 

LD 

CP 

JR 

JR 

LD 

LD 

JR 

LD 

LD 

LD 

PUSH 

POP 

LD 



H3) 



AF 

BC 

HL 

IX 

IY 

0A7FH 

HL 

IX 

B» (IXh 

C,0 

A* (IX+0) 

<IX+3) 

Z?CST010 

C 9 CST005 

B» UX+3) 

C» 1 

CST010 

Ci-1 

L» <IX+4> 

H) UX+5) 

HL 

IY 

Lj UX + 1) 



;SAVE REGISTERS 



;***GET PB ADDRESS*** 
{TRANSFER TO IX 

5# OF 1 

!STRING1=STRING 2 FLAG 

SGET # BYTES OF STRING 1 

;# OF l-# OF 2 

;GO IF STRINGS ESUAL LEN 

;GO IF # 0F 1<# OF 2 

5GET SMALLER # 

; STRING 1>STRING 2 

5 STRING KSTRING 2 CASE 
iGET ADDRESS OF STRING 2 

; TRANSFER TO IY 

!GET ADDRESS OF STRING 1 
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7F31 


DD6602 


00460 




LD 


H, <IX+2) 


7F34 


7E 


00470 


CST020 


LD 


A, (HL) 


7F35 


FD9600 


00480 




SUB 


<IY+0) 


7F38 


2008 


00490 




JR 


NZ?CST040 


7F3A 


23 


00500 




INC 


HL 


7F3B 


FD23 


00510 




INC 


IY 


7F3D 


1BF5 


00520 




DJNZ 


CST020 


7F3F 


79 


00530 




LD 


A,C 


7F4B 


1806 


00540 




JR 


CST050 


7F42 


3E01 


00550 


CST040 


LD 


A, 1 


7F44 


3002 


00560 




JR 


NCCST050 


7F46 


3EFF 


00570 




LD 


A»-l 


7F48 


DD7706 


00580 


CST050 


LD 


<IX+6),A 


7F4B 


FDE1 


00590 




POP 


IY 


7F4D 


DDE! 


00600 




POP 


IX 


7F4F 


Ei 


00610 




POP 


HL 


7F50 


CI 


00620 




POP 


BC 


7F51 


Fl 


00630 




POP 


AF 


7F52 


C9 


00640 




RET 




0000 




00650 




END 





5SET STRING 1 BYTE 
5 COMPARE 

5 GO IF NOT E&UAL 
5BUMP STRING 1 POINTER 
5BUMP STRING 2 POINTER 
5 LOOP IF EQUAL 
5GET SIZE COMPARISON 

SSTRING 1>STRING 2 
IGO IF OK 

5 STRING KSTRING 2 
; STORE IN RESULT 
; RESTORE REGISTERS 



I RETURN TO CALLING PROGRAM 



DELBLK: DELETE BLOCK 



CSTRNG DECIMAL. VALUES 



245? 197, 229, 221 , 229, 253s 229, 205, 127? 10! 

229 5 221, 225, 221, 70s 0, 14, 05 221, 126, 

0! 221,* 190, 3, 40, 11, 56, 7, 221, 70, 

3, 14, 1, 24, 2, 14, 255, 221, 110, 4, 

221, 102, 5, 229, 253, 225, 221, 110, 1, 221, 

102, 2, 126) 253, 150, 0, 32, 8, 35, 253, 

35, 16, 245, 121, 24, 6, 62, 1, 48, 2, 

62, 255, 221, 119, 6, 253, 225, 221, 225, 225, 

193, 241, 201 



CHKSUM= 55 



System Configuration 

Model I, Mode! II!, Model II Stand Alone. 

Description 

DELBLK deletes a block in the middle of a larger block of memory. The block is 
deleted by moving up all bytes after the deletion block as shown below. This 
subroutine could be used for deleting a block of text, for example, and moving 
the remaining text into the deleted block. Both the "larger block" and "dele- 
tion block" may be any size up to the limits of memory. 



Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
two bytes of the parameter block contain the address of the larger block in 
standard Z-80 address format, least significant byte followed by most significant 
byte. The next two bytes are the address of the deletion block in Z-80 address 
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format. The next two bytes of the parameter block (PARAM+4,+ 5) contain the 
number of bytes in the larger block; the next two bytes contain the number of 
bytes in the deletion block. Both are in standard Z-80 format. 

On output, the contents of the parameter block remain unchanged. The dele- 
tion block has been deleted by a move of the remaining bytes of the larger 
block into the deletion area. 



INPUT 



H 



POINTER TO PARAM+0 



OUTPUT 



UNCHANGED 



+0 
+ 1 


START ADDRESS 

- OF LARGER -- 

BLOCK (MEM 1+0) 


+2 
+3 


START ADDRESS 
OF DELETE - - 
BLOCK 


+4 
+5 


# OF BYTES 

IN LARGER 

BLOCK 


+6 

+7 


# OF BYTES 

IN DELETE 

BLOCK 



PARAM+0 

+ 1 



V 



y 



-- UNCHANGED 



+2 
+3 
+4 
+5 
+6 
+7 



UNCHANGED -- 



-- UNCHANGED 



-- UNCHANGED 



MEM 1+0 

+ 1 

+2 
+3 



START 

ADDRESS - 

OF 

DELETE 
BLOCK 



LAST-1 
LAST 



LARGER 
BLOCK 



. / DELETE 

/ BLOCK ,. , 



9 



MEM 1+0 

+ 1 

+2 
+3 



^ 



LAST-1 
LAST 



LARGER 
BLOCK 
WITH 
DELETE 
BLOCK 

DELETED 



I 



Algorithm 

The DELBLK subroutine performs the deletion by doing a block move of the 
remaining bytes of the larger block into the deletion area. At the LDIR, HL 
contains the address of the location directly after the deletion block, DE con- 
tains the address of the deletion block, and BC contains the number of bytes 
remaining in the larger block after the deletion block. 
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The destination location (DE) is simply the deletion block address. This is saved 
for the LDIR in the stack. The source location (HL) is found by adding the 
deletion block address and the size of the deletion block. This is then pushed 
into the stack for LDIR use. The number to move is found by subtracting the 
source location (HL) from the last location of the larger block plus one. 

Sample Calling Sequence 



I 



NAME 


OF 


' SUBROUTINE? DELBLK 


HL VALUE? 40000 




PARAME" 


"ER BLOCK 


LOCATION? 40000 


PARAMETER BLOCK 


VALUES? 


+ 


2 


45000 


START OF LARGER BLOCK 


+ 2 


2 


45003 


START OF DELETION BLOCK 


+ 4 




10 


10 BYTES IN LARGER BLOCK 


+ 6 


2 


3 


3 BYTES IN DELETION BLOCK 


4- 8 










MEMORY 


BLOCK 1 


LOCATION? 45000 


MEMORY 


BLOCK 1 


VALUES? 


+ 


1 









+ 1 


1 


1 






+ 2 


1 


2 






+ 3 


1 


3~ 








+ 4 


1 


4 


-DELETION BLOCK 


-LARGER BLOCK 


+ 5 


1 


5 








+ 6 


1 


6 






+ 7 


1 


7 






+ 8 


1 


8 






+ 9 


i 


9 






+ 10 


e 












MEMORY BLOCK 2 LOCATION? 
MOVE SUBROUTINE TO? 37777 
SUBROUTINE EXECUTED AT 37777 



INPUT: 






OUTPUT 






HL= 40000 




HL= 40000 




PARAM+ 





200 


PARAM+ 





200 


PARAM+ 


1 


175 


PARAM+ 


1 


175 


PARAM+ 


2 


203 


PARAM+ 


2 


203 


PARAM+ 


3 


175 


PARAM+ 


3 


175 


PARAM+ 


4 


10 


PARAM+ 


4 


10 


PARAM+ 


5 





PARAM+ 


5 





PARAM+ 


6 


3 


PARAM+ 


6 


3 


PARAM+ 


7 





PARAM+ 


7 





MEMB1+ 








MEMB1+ 








MEMB1+ 


1 


1 


MEMB1+ 


1 


1 


MEMB1+ 


2 


2 


MEMB1+ 


jL 


2 


MEMB1+ 


3 


3 


MEMB1+ 


3 


6 


MEMB1+ 


4 


4 


MEMB1+ 


4 


7 


MEMB1+ 


5 


5 


MEMB1+ 


5 


8 


MEMB1+ 


6 


6 


MEMB1+ 


6 


9 . 


MEMB1+ 


7 


7 


MEMB1+ 


7 


7 


MEMB1+ 


B 


8 


MEMB1+ 


8 


8 


MEMB1+ 


9 


9 


MEMB1+ 


9 


9 



-NEW BLOCK 



GARBAGE BYTES 



NAME OF SUBROUTINE? 

Notes 

1. The maximum number of bytes in either block may be 65,535. 

2. There will be a number of "garbage" bytes at the end of the larger block 
after the move. 
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Program Listing 



7F00 



7F00 
7F01 
7F02 
7F03 
7F05 
7F08 
7F09 
7F0B 
7F0E 
7FH 
7F12 
7F15 
7F18 
7F19 
7F1A 
7F1D 
7F20 
7F23 
7F26 
7F27 
7F28 
7F29 
7F2B 
7F2C 
7F2D 
7F2E 
7F2F 
7F31 
7F33 
7F34 
7F35 
7F36 
0000 
00000 



C5 

D5 

E5 

DDE5 

CD7F0A 

E5 

DDE1 

DD6E02 

DD6603 

E5 

DD4E06 

DD4607 

09 

E5 

DD6E00 

DD6601 

DD4E04 

DD4605 

09 

Dl 

B7 

EDS 2 

E5 

Ci 

El 

EB 

EDB0 

DDE1 

El 

Dl 

CI 

C9 

TOTAL 



00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
ERRORS 



ORG 7F00H 5 0522 

;###########»##########**#********#####*#******##*##*##*# 
;* DELETE BLOCK. DELETES BLOCK IN MIDDLE OF LARGER BLOCK* 
5* INPUT: HL=> PARAMETER BLOCK * 

;* PARAM+0?+l=START ADDRESS OF LARGER BLOCK * 

;* PARAM+2,+3=START ADDRESS OF DELETE BLOCK * 

?* PARAM+4 5 +5=# OF BYTES IN LARGER BLOCK * 

;# PARAM+6* +7=# OF BYTES IN DELETE BLOCK * 

;* OUTPUTsDELETE BLOCK DELETED BY MOVING UP REMAIN- * 
5* DER OF LARGER BLOCK * 

;######♦###**####*###*#***##**##****#******#*********#**# 
1 



DELBLK 



PUSH 

PUSH 

PUSH 

PUSH 

CALL 

PUSH 

POP 

LD 

LD 

PUSH 

LD 

LD 

ADD 

PUSH 

LD 

LD 

LD 

LD 

ADD 

POP 

OR 

SBC 

PUSH 

POP 

POP 

EX 

LDIR 

POP 

POP 

POP 

POP 

RET 

END 



BC 

DE 

HL 

IX 

0A7FH 

HL 

IX 

L» (IX+2) 

H» (IX+3) 

HL 

C, (IX+6) 

B? CIX+7) 

HL.BC 

HL 

L) (IX+0) 

H» (IX+1) 

C> (IX+4) 

B» (IX+5) 

HL>BC 

DE 

A 

HL?DE 

HL 

BC 

HL 

DEsHL 

IX 
HL 
DE 
BC 



;SAVE REGISTERS 



;###GET PB ADDRESS*** 
! TRANSFER TO IX 

;PUT DELETE BLK ADD IN HL 

5 DESTINATION FOR LDIR 
5PUT SIZE OF DEL BLK IN BC 

5FIND SOURCE LOC'N 
5SAVE FOR LDIR 
5PUT START INTO HL 

;GET SIZE OF LARGE BLOCK 

5LAST LOC'N + ONE 

5 GET SOURCE LOCATION 

; CLEAR CARRY 

5 FIND # TO MOVE 

5 TRANSFER TO BC 

5GET DESTINATION 
5 SWAP DE AND HL 

5MOVE 'EM 
5 RESTORE REGISTERS 



! RETURN TO CALLING PROG 



DELBLK DECIMAL VALUES 



I 
I 
I 
I 

I 



DRBOXS: DRAW BOX 



197? 213s 229? 221 5 229» 205* 127, 10, 229s 221' 

225, 221 5 110, 25 221, 102? 3i 229? 221, 78* 

65 221, 705 7 5 9 5 229, 221s 1105 0, 221, 

102 5 li 221, 785 4, 221 5 70, 5 5 9» 209» 

183, 2375 82, 2295 193 5 2255 2355 237 > 176, 221' 

225 5 225s 209s 193, 201 

CHKSUM= 186 



System Configuration 
Model i, Model III. 
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Description 

DRBOXS draws a rectangle on the video display. The rectangle may start at any 
screen position and may be any size as long as it does not overrun the screen 
boundaries. The rectangle is drawn on a character position basis. 

Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
byte of the parameter block contains the upper left-hand comer character posi- 
tion (x) from to 63. The next byte of the parameter block contains the upper 
left-hand corner line position (y) from to 15. The next byte of the parameter 
block contains the width of the rectangle in character positions, 2 to 63. The 
next byte of the parameter block contains the height of the rectangle in charac- 
ter positions, 2 to 16. 

On output, the contents of the parameter block remain unchanged. The box 
has been drawn on the screen. 



I 
I 







INPUT 
H L 








OUTPUT 
H L 






POINTER TO PARAM+0 

i 


==» 


UNCHANGED 














i 




PARAM+0 


UPPER LFT X 


PARAM+0 


UNCHANGED 




+ 1 


UPPER LFTY 


+ 1 


UNCHANGED 




+2 


WIDTH IN CP 


+2 


UNCHANGED 






HEIGHT IN CP 




X 


+3 


UNCHANGED 




+3 


> 






/ 





Algorithm 

The DRBOXS subroutine contains two smaller subroutines called DRBWH and 
DRBVVV. DRBWH draws a horizontal line, while DRBWV draws a vertical line. 
Both are not in the standard subroutine form because CALLs to the subroutine 
would not be relocatable. 

DRBWH is entered from DRBOXS with HL containing the memory location 
that represents the leftmost character position for the horizontal line to be 
drawn, with B containing the width in character positions, and with C contain- 
ing a flag for the return point. 

DRBWV is entered from DRBOXS with HL containing the memory location 
that represents the topmost character position for the vertical line to be drawn, 
with B containing the height in character positions, and with C containing a 
flag for the return point. 

In DRBOXS proper, there are four steps to draw the box. A call is made to 
DRBWH to draw the top line, a call is made to DRBWV to draw the right-hand 
line, a call is made to DRBWV to draw the left-hand line, and finally, a call is 
made to DRBWH to draw the bottom line. 

First, the starting line position (y) is picked up and multiplied by 64 (DRB010). 
The result is added to the character position (x) and to the start of the screen 
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location (3C00H). This result is the memory location representing the corner 
point. It is saved in the stack. 

A call is then made to DRBWH to draw the top line. The return is made to 
DRB020. 

HL now points to one location greater than the end of the line. HL is decre- 
mented and a call is made to DRBWV to draw the right-hand side. The return is 
made to DRB030. 

The original comer location is now picked up from the stack, and a call is made 
to DRBWV to draw the left-hand line. The return is made to DRB040. 

HL now points to one line greater than the bottom of the line. HL is decre- 
mented, and a call is made to DRBWH to draw the bottom line. The return is 
made to DRB050. 

Sample Calling Sequence 



NAME OF SUBROUTINE? DRBOXS 

HL VALUE? 40000 

PARAMETER BLOCK LOCATION? 40000 

PARAMETER BLOCK VALUES? 

^ = 32,8 



+ 

+ 



1 


1 
1 


32 
8 


- UPPER LEF1 


+ 


2 


1 


12 


WIDTH = 12 


^ 


3 


1 


4 


HEIGHT = 4 


+ 


4 











MEMORY BLOCK i LOCATION? 
MOVE SUBROUTINE TO? 3S8SS 
SUBROUTINE EXECUTED AT 38888 



HL= 40000 




OUTPUT: 
HL= 40000 






PARAM+ 


32 


PARAM+ 


32" 




PARAM+ 1 
PARAM+ 2 


8 
12 


PARAM+ 1 
PARAM+ 2 


8 

12 


-UNCHANGED 


PARAM+ 3 


4 


PARAM+ 3 


4 





Notes 

1. If the parameters cause the rectangle to exceed screen limits, the system 
may be "bombed." 

2. The top and bottom lines are wider than the side lines in the rectangle. 

Program Listing 



7F00 



00100 ORG 7F00H 5 0522 

00110 ;#*#**«■****#**#**##**##****#****«•****«•******************* 

00120 I* DRAW BOX. DRAWS BOX OF GIVEN WIDTH AND HEIGHT AT 

00130 5* SPECIFIED LOCATION. 

00140 5* INPUT: HL=> PARAMETER BLOCK 

00150 ;* PARAM+0=UPPER LEFT CORNER CHAR POS (X) 

00160 ;* PARAM+1=UPPER LEFT CORNER LINE # (Y) 

00170 ;* PARAM+2=WIDTH IN CHARACTER POSITIONS 

00180 5* PARAM+3=HEIGHT IN CHARACTER POSITIONS 

00190 5* OUTPUT: BOX DRAWN ON SCREEN 

00200 ;#***#*******#*#*********#******************************* 

00210 ; 
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7F00 C5 


00220 


DRBOXS 


PUSH 


BC 


7F01 D5 


00230 




PUSH 


DE 


7F02 E5 


00240 




PUSH 


HL 


7F03 DDES 


00250 




PUSH 


IX 


7F05 CD7F0A 


00260 




CALL 


0A7FH 


7F08 E5 


00270 




PUSH 


HL 


7F09 DDEi 


00280 




POP 


IX 


7F0B DD6E01 


00290 




LD 


L> CIX+1) 


7F0E 2600 


00300 




LD 


H?0 


7F10 0606 


00310 




LD 


B»6 


7F12 29 


00320 


DRB010 


ADD 


HLsHL 


7FI3 10FD 


00330 




DJNZ 


DRB010 


7F15 DD4E00 


00340 




LD 


C, (IX+0) 


7F18 0600 


00350 




LD 


B.0 


7F1A 09 


00360 




ADD 


HLsBC 


7F1B 01003C 


00370 




LD 


BC3C00H 


7F1E 09 


00380 




ADD 


HLsBC 


7F1F E5 


00390 




PUSH 


HL 


7F20 DD4602 


00400 




LD 


B» CIX+2) 


7F23 0E00 


00410 




LD 


C»0 


7F25 181 C 


00420 




JR 


DRBWH 


7F27 2B 


00430 


DRB020 


DEC 


HL 


7F28 DD46B3 


00440 




LD 


B, (IX+3) 


7F2B 1821 


00450 




JR 


DRBWV 


7F2D El 


00460 


DRB030 


POP 


HL 


7F2E DD4603 


00470 




LD 


B» (IX+3) 


7F31 0E01 


00480 




LD 


Cs 1 


7F33 1819 


00490 




JR 


DRBWV 


7F35 B7 


00500 


DRB04B 


OR 


A 


7F36 EDS 2 


00510 




SBC 


HLjDE 


7F38 DD4602 


00520 




LD 


B» (IX+2) 


7F3B 1806 


00530 




JR 


DRBWH 


7F3D DDEI 


00540 


DRB050 


POP 


IX 


7F3F El 


00550 




POP 


HL 


7F40 Dl 


00560 




POP 


DE 


7F41 CI 


00570 




p p 


BC 


7F42 C9 


00580 




RET 




7F43 36BF 


00590 


DRBWH 


LD 


( HL ) » 0BFH 


7F45 23 


00600 




INC 


HL 


7F46 10FB 


00610 




DJNZ 


DRBWH 


7F48 CB41 


00620 




BIT 


0s C 


7F4A 28DB 


00630 




JR 


ZiDRB020 


7F4C 18EF 


00640 




JR 


DRB050 


7F4E 114000 


00650 


DRBWV 


LD 


DEs40H 


7F51 36BF 


00660 


DRBWV1 


LD 


( HL ) , 0BFH 


7F53 19 


00670 




ADD 


HLsDE 


7F54 10FB 


00680 




DJNZ 


DRBWV 1 


7F56 CB41 


00690 




BIT 


05 C 


7F58 28D3 


00700 




JR 


Z,DRB030 


7F5A 18D9 


00710 




JR 


DRB040 


0000 


00720 




END 




00000 TOTAL 


ERRORS 









;SAVE REGISTERS 



;##*GET PB LOC'N*** 
5 TRANSFER TO IX 

?GET Y IN LINES 
5 NOW IN HL 
{ITERATION COUNT 

5FIND LINE DISPLACEMENT 

?LINE # * 64 
?6ET CHAR POSITION 
?NOW IN BC 

!FIND DISPL FROM START 
? START OF SCREEN 
!FIND ACTUAL MEMORY LOC'N 
5SAVE LOC'N 

;GET WIDTH IN CHAR POSNS 
!FLAG FOR RETURN 
;DRAW TOP LINE 
? POINT TO END OF LINE 
5GET HEIGHT IN CHAR POSNS 
5DRAW RIGHT SIDE 
I GET UPPER LEFT CORNER LOC 
I GET HEIGHT IN CHAR POSNS 
5 FLAG FOR RETURN 
IDRAW LEFT SIDE 
I CLEAR CARRY 
5 POINT TO END OF LINE 
fGET WIDTH IN CHAR POSNS 
5DRAW BOTTOM LINE 
! RESTORE REGISTERS 



! RETURN TO CALLING PROG 
5 SET CHAR POSN TO ALL ON 
5HORIZ INCREMENT 
5LOOP 'TIL LINE DONE 

5 TEST FLAG 

5RTN POINT 1 

5RTN POINT 2 

5 INCREMENT FOR VERTICAL LN 
;SET CHAR POSN TO ALL ON 
; POINT TO NEXT POSITION 
SLOOP 'TIL LINE DONE 

?TEST FLAG 

;RTN POINT 1 

?RTN POINT 2 



DRBOXS DECIMAL VALUES 

197, 213, 229 f 221 , 229 i 205 , 127 s 10. 229 » 21 

225s 221 s 110) Is 38, 0, 6, 6s 41, 16, 

253» 221 » 78? 0s 6? 0! 9s is 0s 60s 

9» 229s 221s 70, 2s 14s 0, 24s 28s 43s 

221s 70s 3» 24s 33s 225s 221s 70s 3s 14s 

Is 24s 25s 183s 237s 82s 221, 70s 2s 24s 

6, 221, 225s 225s 209s 193, 201 » 54s 191, 35, 

16, 251, 203, 65, 40, 219, 24, 239s 17s 64, 

0s 54, 191 » 25s 16s 251s 203, 65, 40s 211s 

24 

CHKSUM= 128 
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I 
I 
I 

I 
I 

I 
I 
I 
I 
I 
I 
I 
I 



DRHLNE: DRAW HORIZONTAL LINE 



Configuration 
Model I, Model III. 

Description 

DRHLNE draws a horizontal line on the screen. The line may be any length and 
may start on any character position of any screen line. 

Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
byte of the parameter block contains the starting x character position of the 
line, from to 63. The leftmost character position of the line must be specified. 
The next byte of the parameter block contains the starting line number y of the 
line, from to 1 5. The next byte of the parameter block contains the number of 
character positions in the line length. This will be a maximum of 64 for a line 
that starts at the left edge of the screen. 

On output, the parameter block contents are unchanged. The horizontal line 
has been drawn. 



OUTPUT 

H . L 







H L 






POINTER TO PARAM+0 

i 






i 




PARAM+0 


X, 0-63 






+ 1 


Y, 0-15 




+2 


LENGTH 





=> 



4- 



UNCHANGED 



PARAM+0 

+ 1 

+2 



-X 



UNCHANGED 



UNCHANGED 



UNCHANGED 



~7 



Algorithm 

The DRHLNE subroutine performs the move by computing the starting address 
of the line in video display memory and by controlling the operation with the 
count of the number of character positions involved. 

First, the line number value is picked up from the parameter block. This is 
multiplied by 64 to find the number of bytes (displacement) from the start of 
video display memory. This value is added to 3C00H to find the actual video 
memory address for the line start. This value is added to the character position 
of the start from the parameter block to find the starting position in video 
display memory. 

A byte of OBFH is stored for each character position in the line. The current 
video display memory position in HL is then incremented to find the next 
location of the line. A count of the number of character positions involved is 
then decremented and a jump is made to DRH020 if the count is not zero. 
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Sample Calling Sequence 



NAME OF SUBROUTINE? DRHLNE 

HL VALUE? 50000 

PARAMETER BLOCK LOCATION? 50000 

PARAMETER BLOCK VALUES? 

+ 1 

+ 1 1 15 

+2 1 64" 

+ 300 

MEMORY BLOCK i LOCATION? 

MOVE SUBROUTINE TO? 45000 

SUBROUTINE EXECUTED AT 45000 



- X, Y = 0, 15 
LENGTH = 64 



INPUT: 
HL= 50000 
PARAM+ 
PARAM+ 1 15 
PARAM+ 2 64 



OUTPUT: 
HL= 50000 
PARAM+ 
PARAM+ 1 15 
PARAM+ 2 64 



UNCHANGED 



NAME OF SUBROUTINE? 

Notes 

1. The program may "bomb" the system if the length of travel goes beyond 
video display memory boundaries. 

2. The program may "bomb" the system if the x and y coordinates are im- 
properly specified. 

3. Change location 7F22H to draw a narrower line. 

Program Listing 



7F00 



7F00 
7F01 

7F02 
7F04 

7F07 
7F0S 
7F0A 
7F0D 
7F0F 
7F11 
7F12 
7F14 
7F17 
7F19 
7F1A 
7F1D 
7F1E 
7F21 
7F23 



C5 

E5 

DDES 

CD7F0A 

E5 

DDE1 

DD6E01 

2600 

0606 

29 

10FD 

DD4E00 

0600 

09 

01003C 

09 

DD4602 

36BF 

23 



00100 
00110 
00 1 20 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 

00380 
00390 



ORG 7F00H ;0522 

; *####*#**######*#**#*#####*####**#**#*##**#**###**###»# * 
5* DRAW HORIZONTAL LINE. DRAWS A HORIZONTAL LINE FROM * 
GIVEN LINE (Y), CHARACTER POSITION <X). * 

INPUT: 

63 



5* 

;* 
;# 

;* 
;* 
;# 



HL=> PARAMETER BLOCK * 

PARAM+0=CHAR POSITION ( X ) » - 63 * 

PARAM+1=LINE NUMBER (Y) 5 0-15 * 

PARAM+2=LENGTH OF LINE IN CHAR POSITIONS # 

OUTPUT: LINE DRAWN * 



DRHLNE 



DRH010 



DRH020 



PUSH 

PUSH 

PUSH 

CALL 

PUSH 

POP 

LD 

LD 

LD 

ADD 

DJNZ 

LD 

LD 

ADD 

LD 

ADD 

LD 

LD 
INC 



BC 

HL 

IX 

0A7FH 

HL 

IX 

L» (IX+1) 

Hi0 

B,6 

HL*HL 

DRH010 

C? (IX+0) 

Bi0 

HLjBC 

BC»3C00H 

HL>BC 

B» (IX+2) 

<HL>!0BFH 
HL 



5SAVE REGISTERS 



;***GET PB LOC'N*** 
5 TRANSFER TO IX 

;GET LINE NUMBER 

?NOW IN HL 

; ITERATION COUNT 

5MULTIPLY LINE # * 64 

SLOOP TILL DONE 
;GET CHAR POS'N (X) 
3 NOW IN BC 

! DISPLACEMENT FROM START 
5 START OF SCREEN 
5FIND ACTUAL START LOC'N 
;GET NUMBER OF CHAR POS'NS 

?ALL ON FOR CHAR POSITION 
5 BUMP POINTER 
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7F24 10FB 


00400 


DJNZ 


DRH020 


7F26 DDEi 


00410 


POP 


IX 


7F28 El 


00420 


POP 


HL 


7F29 CI 


00430 


POP 


BC 


7F2A C9 


00440 


RET 




0000 


00450 


END 





SLOOP 'TIL DONE 
5 RESTORE REGISTERS 



; RETURN TO CALLING PROG 



00000 TOTAL ERRORS 



DRVLNE: DRAW VERTICAL LINE 



DRHLNE DECIMAL VALUES 



197) 229 i 221) 229s 205? 127) 10) 229 » 221) 

221) 110) 1) 38) 0) 6) 6) 41i 16» 253) 

221) 78) 0) 6) 0) 9) 1) 0) 60) 9) 

221) 70) 2) 54) 191) 35) 16? 251) 221) 225 i 

225) 193. 201 



CHKSUM= 10 



Configuration 
Model I, Model III. 

Description 

DRVLNE draws a vertical line on the screen. The line may be any length and 
may start on any character position of any screen line. 

Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
byte of the parameter block contains the starting x character position of the 
line, from to 63. The topmost character position of the line must be specified. 
The next byte of the parameter block contains the starting line number y of the 
line, fromO to 15. The next byte of the parameter block contains the number of 
character positions in the line length. This will be a maximum of 16 for a line 
that starts at the top of the screen. 

On output, the parameter block contents are unchanged. The vertical line has 
been drawn. 



INPUT 



H 



POINTER TO PARAM+0 



+ 



PARAM+0 


X, 0-63 


+ 1 


Y, 0-15 


+2 


LENGTH 



OUTPUT 



UNCHANGED 



PARAM+0 


UNCHANGED 


+ 1 


UNCHANGED 


+2 


UNCHANGED 
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Algorithm 

The DRVLNE subroutine performs the move by computing the starting address 
of the line in video display memory and by controlling the operation with the 
count of the number of character positions involved. 



First, the line number value is picked up from the parameter block. This is 
multiplied by 64 to find the number of bytes (displacement) from the start of . 
video display memory. This value is added to a character position of the start I 
from the parameter block to find the displacement from the start of video dis- 
play memory. This value is added to 3C00H to find the actual video memory 
address for the line start. 

A byte of OBFH is stored for each character position in the line. The current 
video display memory position in HL is then incremented by 40H to find the 
next location of the line. A count of the number of character positions involved 
is then decremented and a jump is made to DRV020 if the count is not zero. 

Sample Calling Sequence 

NAME OF SUBROUTINE? DRVLNE 

HL VALUE? 50000 

PARAMETER BLOCK LOCATION? 50000 

PARAMETER BLOCK VALUES? 

+ 1 8 l x Y = R q 
+ t t 9 J" X ' Y 8 ' 9 

+ 2 1 5 LENGTH = 5 

■+300 

MEMORY BLOCK 1 LOCATION? 

MOVE SUBROUTINE TO? 40100 

SUBROUTINE EXECUTED AT 40100 

INPUT: OUTPUT: 

HL= 50000 HL= 50000 

PARAM+ 8 PARAM+ 8 

PARAM+ 1 9 PARAM+ 1 9 h UNCHANGED 

PARAM+ 2 5 PARAM+ 2 5 ru ^ MAINUtu 

NAME OF SUBROUTINE? 

Notes 

1. The program may "bomb" the system if the length of travel goes beyond 
video display memory boundaries. 

2. The program may "bomb" the system if the x and y coordinates are im- 
properly specified. 

Program Listing 

7F00 00100 ORG 7F00H 5 0522 

001 1 I *******###**#**#*****#**####*#*##**#*##*####***#######** 

00120 5* DRAW VERTICAL LINE. DRAWS A VERTICAL LINE FROM * 

00130 ?* GIVEN LINE (Y), CHARACTER POSITION (X). * 

00140 ;* INPUT: HL=> PARAMETER BLOCK * 

00150 !* PARAM+0=CHAR POSITION (X)? 0-63 * 

00160 5* PARAM+1=LINE NUMBER (Y)s 0-15 * 

00170 ?♦ PARAM+2=LENGTH OF LINE IN CHAR POSITIONS * 

00180 ?* OUTPUT: LINE DRAWN # 

001 90 ; ****####*#**#*##*■)(■#*•#***###*#«■#«•***##*#*###*#####*###*## 

00200 ; 
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7F00 


C5 


00210 DRVLNE 


PUSH 


BC 


7F01 


D5 


00220 


PUSH 


DE 


7F02 


E5 


00230 


PUSH 


HL 


7F03 


DDE5 


00240 


PUSH 


IX 


7F05 


CD7F0A 


00250 


CALL 


0A7FH 


7F08 


E5 


00260 


PUSH 


HL 


7F09 


DDE1 


00270 


POP 


IX 


7F0B 


DD6E01 


00280 


LD 


L, <IX+1) 


7F0E 


2600 


00290 


LD 


H>0 


7F10 


0606 


00300 


LD 


B»6 


7F12 


29 


00310 DRV010 


ADD 


HLsHL 


7F13 


10FD 


00320 


DJNZ 


DRV010 


7F15 


DD4E00 


00330 


LD 


Cs (IX+0) 


7F1S 


0600 


00340 


LD 


B,0 


7F1A 


09 


00350 


ADD 


HL > BC 


7F1B 


01003C 


00360 


LD 


BC*3C00H 


7F1E 


09 


00370 


ADD 


HL»BC 


7F1F 


DD4602 


00380 


LD 


B* (IX+2) 


7F22 


114000 


00390 


LD 


DE?40H 


7F25 


36BF 


00400 DRV020 


LD 


<HL)?0BFH 


7F27 


19 


00410 


ADD 


HLsDE 


7F28 


10FB 


00420 


DJNZ 


DRV020 


7F2A 


DDE1 


00430 


POP 


IX 


7F2C 


El 


00440 


POP 


HL 


7F2D 


Dl 


00450 


POP 


DE 


7F2E 


CI 


00460 


POP 


BC 


7F2F 


C9 


00470 


RET 




0000 




00480 


END 




00000 TOTAL 


ERRORS 







5SAVE REGISTERS 



;#*#GET PB LOC'N*** 
; TRANSFER TO IX 

;GET LINE NUMBER 

SNOW IN HL 

; ITERATION COUNT 

; MULT I PLY LINE # * 64 

5LOOP TILL DONE 
5GET CHAR POS'N (X) 
5NOW IN BC 

; DISPLACEMENT FROM START 
; START OF SCREEN 
;FIND ACTUAL START LOC'N 
;GET NUMBER OF CHAR POSNS 
;LINE DISPLACEMENT 

;ALL ON FOR CHAR POSITION 

;FIND NEXT POSITION 

?LOOP 'TIL DONE 
; RESTORE REGISTERS 



; RETURN TO CALLING PROG 



DRVLNE DECIMAL VALUES 



197 5 213* 229, 221s 229> 205, 127 5 105 
225 5 221 5 110> 1» 38? 0» 65 65 41 » 16» 
253» 221 > 78s 0» 6? ? 9» 1» 05 60s 
9 5 221. 705 25 175 645 0i 54 5 191» 25 5 

16» 2515 221 5 225> 225 5 209 » 1935 201 



229? 



221 ■ 



CHKSUM= 



247 



DSEGHT: DIVIDE 16 BY 8 



System Configuration 

Model I, Model III, Model II Stand Alone. 

Description 

DSEGHT divides a 16-bit binary number by an 8-bit binary number. The divide 
is an "unsigned" divide, where both numbers are considered to be absolute 
numbers without sign. Both the quotient and remainder are returned. 

Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
two bytes of the parameter block contain the 16-bit dividend. The next byte of 
the parameter block contains an 8-bit divisor. The next two bytes of the param- 
eter block are reserved for the 16-bit quotient. The next byte is reserved for the 
8-bit remainder. 
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On output, PARA+ 3, + 4 hold the 1 6-bit quotient and PARA+ 5 holds the 8-bit 
remainder. The contents of the rest of the parameter block remain unchanged. 



INPUT 



I 1 -1 

POINTER TO PARAM+0 








M+0 

+ 1 


1 6-BIT 
DIVIDEND 




+2 


8-BIT DIVISOR 




+3 
+4 


RESERVED 

FOR 
QUOTIENT 




+5 


RES. FOR REMAIN. 









OUTPUT 
H L 




^^> 


UNCHANGED 


PARA 


M+0 

+ 1 
+2 
+3 
+4 
+5 


I 




- UNCHANGED - 




UNCHANGED 




1 6-BIT 
QUOTIENT 




> 

7 




8-BIT REMAINDER 





Algorithm 

The DSEGHT subroutine performs the divide by a "restoring" type of bit-by-bit 
binary divide. The dividend is put into the HL register pair. The divisor is put 
into the C register. The A register is cleared. For each of 16 iterations in the 
divide, the HL register pair is shifted left one bit position into the A register. A 
subtract of the divisor (C) from the "residue" in A is then done. If the result is 
positive, a one bit is put into the least significant bit of HL. If the result is 
negative, a zero bit is put into the least significant bit of HL, and the previous 
value in A is restored by an add. 

Quotient bits fill up the HL register from the right as the residue is shifted out 
into the A register toward the left. At the end of 16 iterations, the HL register 
pair contains the 1 6 quotient bits and the A register contains an 8-bit remainder. 

The code at DSE010 is the main loop in DSEGHT which shifts HL left by an 
"ADD HL,HL" and "ADC A,A." The Isb of HL is preset with a quotient bit of 
one, and the subtract of C from A is done. If the result is positive, a loop to 
DSE010 is done for the next iteration. If the result is negative, C is added back to 
A, and the Isb of HL is reset. The B register holds the iteration count. 

Sample Calling Sequence 



NAME OF SUBROUTINE? DSEGHT 

HL VALUE? 42200 

PARAMETER BLOCK LOCATION? 42200 

PARAMETER BLOCK VALUES? 



+ 





k' 


60002 


DIVIDEND 


+ 


jd 


1 


111 


DIVISOR 


+ 


3 


2 







+ 


5 


i 


S 




+ 


6 


a 








MEMORY BLOCK 1 LOCATION? 
MOVE SUBROUTINE TO? 43000 
SUBROUTINE EXECUTED AT 43000 
INPUT: OUTPUT: 

HL= 42200 HL= 42200 
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PARAM+ 


s 


96 


PARAM+ 


Z 


96 




PARAM+ 


i 


234 


PARAM+ 


i 


234 


-UNCHANGED 


PARAM+ 


2 


ill 


PARAM+ 


-■? 


Ui 




PARAM+ 
PARAM+ 


3 
4 






PARAM+ 
PARAM+ 


3 
4 


28 " 
2 


-QUOTIENT = 540 


PARAM+ 


5 





PARAM+ 


5 


60 


REMAINDER = 60 



NAME OF SUBROUTINE? 



Notes 



1. Maximum dividend is 65,535. Maximum divisor is 255. The maximum 
quotient will be 65,535 and the maximum remainder will be 255. 

2. Division by causes an invalid result of OFFFFH. 

Program Listing 



7K00 



I 
I 



7F00 F5 
7F01 C5 
7F02 E5 
7F03 DDES 
7F05 CD7F0A 
7F08 E5 
7F09 DDE1 
7F0B 0610 
7F0D DD4E02 
7F10 DD6E00 
7F13 DD6601 
7F16 AF 
7F17 29 
7F18 8F 
7F19 2C 
7F1A 91 

7F1B 
7F1E 



5002 
■:D 

7F1F 10F6 
7F21 DD7503 
DD7404 
DD7705 



7F24 
7F27 



7F2A DDE1 
7F2C El 



7F2D 
7F2E 
7F2F 
0000 
00000 TOTAL 



CI 
Fl 
C9 



00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 

mm 

00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
ERRORS 



ORG 7F00H 5 0522 

i# DIVIDE 16 BY 8. DIVIDES A 16-BIT UNSIGNED NUMBER BY * 

;* AN 8-BIT UNSIGNED NUMBER TO GIVE A QUOTIENT AND RE- * 

;* MAINDER. * 

;# INPUT! HL=> PARAMETER BLOCK * 

I* PARAM+0,+l=16-BIT DIVIDEND * 

;* PARAM+2=8-BIT DIVISOR * 

;# PARAM+3)+4=RESERVED FOR QUOTIENT * 

;* PARAM+5=RESERVED FOR REMAINDER * 

i* OUTPUT: PARAM+3, +4 HOLDS 16-BIT QUOTIENT * 

;* PARAM+5 HOLDS 8-BIT REMAINDER * 



DSEGHT 



DSE010 



DSE020 
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PUSH 

PUSH 

PUSH 

PUSH 

CALL 

PUSH 

POP 

LD 

LD 

LD 

LD 

XOR 

ADD 

ADC 

INC 

SUB 

£Bd 

DEC 

DJNZ 

LD 

LD 

LD 

POP 

POP 

POP 

POP 

RET 

END 



AF 

BC 

HL 

IX 

0A7FH 

HL 

IX 

B» 16 

C» (IX+2) 

L» (IX+0) 

H» (IX+1) 

A 

HL » HL 

A? A 

L 

C 

NC.DSE020 

A 5 C 

L 

DSE010 

(IX+3),L 

(IX+4)»H 

(IX+5)jA 

IX 

HL 

BC 

AF 



5 SAVE REGISTERS 



5*#*GET PB LOC'N*** 
; TRANSFER TO IX 

5 ITERATION COUNT 

?LOAD DIVISOR 

;PUT DIVIDEND IN HL 

5 CLEAR EXTENSION REG 
? SHI FT HL LEFT 1 BIT 
5SHIFT A LEFT W/CARRY 
;SET Q BIT TO 1 
; SUBTRACT D'SOR FROM D'END 

SGpIF SUBTRACT WENT 
; RESTORE 
; RESET Q BIT 
;LOOP FOR 16 ITERATIONS 
; STORE QUOTIENT 

; STORE REMAINDER 
5 RESTORE REGISTERS 



! RETURN TO CALLING PROG 



DSEGHT DECIMAL VALUES 



245* 197, 229s 221: 



?29s 205s 127» 11 



229? 221. 



225 » 6? 16 5 


2215 78 » 


102) 1 » 175? 


415 143s 


45? 16» 246) 


221 5 117 


119. 5» 221. 


225 > 225 


CHKSUM= 83 





25 2215 1105 05 2215 

445 1455 485 2» 1295 
3s 221 s 116s 4s 221 • 
193 5 241> 201 



I 
I 



DSSIXT: DIVIDE 16 BY 16 



System Configuration 

Model I, Model III, Model II Stand Alone. 

Description 

DSSIXT divides a 16-bit binary number by a 16-bit binary number. The divide is 
an "unsigned" divide, where both numbers are considered to be absolute 
numbers without sign. Both the quotient and remainder are returned. 



Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
two bytes of the parameter block contain the 16-bit dividend. The next two 
bytes of the parameter block contain a 16-bit divisor. The next two bytes of the 
parameter block are reserved for the 16-bit quotient. The next two bytes are 
reserved for the 16-bit remainder. 

On output, PARA+4, +5 hold the 16-bit quotient and PARA+6, 4-7 holds the 
8-bit remainder. The contents of the rest of the parameter block remain un- 
changed. 



INPUT 







H L 






POINTER TO PARAM+0 


PARA 




i 




M+0 

+ 1 


1 6-BIT 
DIVIDEND 




+2 

+3 


16-BIT 
DIVISOR 




+4 
+5 


RESERVED 
FOR 

QUOTIENT 




+6 

+7 


RESERVED 

FOR 
REMAINDER 





OUTPUT 



=> 



P 



1 1 1 

UNCHANGED 








M+0 

+ 1 


- UNCHANGED - 




+2 
+3 


- UNCHANGED - 




+4 
+5 


1 6-BIT 
QUOTIENT 




+6 

+7 


1 6-BIT 
REMAINDER 





92 



I 



Algorithm 

The DSEGHT subroutine performs the divide by a "restoring" type of bit-by-bit 
binary divide. The dividend is put into the DE register pair. The divisor is put 
into the BC register pair. The HL register is cleared. For each of 16 iterations in 
the divide, the DE register pair is shifted left one bit position into the HL register 
pair. A subtract of the divisor (BC) from the "residue" in HL is then done. If the 
result is positive, a one bit is put into the least significant bit of DE. If the result 
is negative, a zero bit is put into the least significant bit of DE, and the previous 
value in HL is restored by an add. 

Quotient bits fill up the DE register from the right as the residue is shifted out 
into the HL register pair toward the left. At the end of 16 iterations, the DE 
register pair contains the 16 quotient bits and the HL register contains a 16-bit 
remainder. 

The code at DSS020 is the main loop in DSSIXT which shifts DE left by an 
exchange of DE and HL, an "ADD HL,HL," and an exchange back. HL is 
shifted by an "ADC HL,HL," merging any carry from DE. The Isb of DE is preset 
with a quotient bit of one, and the subtract of BCfrom HL is done. If the result is 
positive, a loop is made back to DSS020 for the next iteration. If the result is 
negative, BC is added back to HL, and the Isb of DE is reset. The A register 
holds the iteration count. 



I 
I 
I 
I 
I 
I 
I 
I 

1 



Sample Calling Sequence 

NAME OF SUBROUTINE? DSSIXT 

HL VALUE? 45000 

PARAMETER BLOCK LOCATION? 45000 

PARAMETER BLOCK VALUES? 



+ 2 it 


3000 


DIVIDEND 






-» 2 2 999 


DIVISOR 






^4 2 










-16 2 










-18 










Mi'MORY BLOCK 


1 LOCATION? 






MOVE SUBROUTINE TO? 50000 






SUBROUTINE EXECUTED AT 50000 




INPUT: 




OUTPUT: 






HL= 45000 




HL= 45000 






PARAM+ 


16 


PARAM+ 


16 




PARAM+ 1 
PARAM+ 2 


39 
231 


PARAM+ 1 
PARAM+ 2 


39 
231 


-UNCHANGED 


PARAM+ 3 


3 


PARAM+ 3 


3 _ 




PARAM+ 4 
PARAM+ 5 






PARAM+ 4 

PARAM+ 5 


10 




-QUOTIENT = 10 


PARAM+ 6 





PARAM+ 6 


10 ~ 




PARAM+ 7 





PARAM+ 7 





-REMAINDER = G 



NAME OF SUBROUTINE? 



Notes 



1. Maximum dividend is 65,535. Maximum divisor is 65,535. The maximum 
quotient will be 65,535 and the maximum remainder will be 65,535. 

2. Division by causes an invalid result of OFFFFH. 
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Program Listing 



7F00 



7F00 F5 
7F01 C5 
7F02 D5 
7F03 E5 
7F04 DDE5 
7F06 CD7F0A 
7F09 E5 
7F0A DDEi 
7F0C DD5E00 
7F0F DD5601 
7F12 DD4E02 
7F15 DD4603 
7F18 210000 
7F1B 3E10 
7F1D EB 
7F1E 29 
7F1F EB 
7F20 ED6A 
7F22 13 
7F23 B7 
7F24 ED42 
7F26 3002 
7F2B IB 
7F29 09 
7F2A 3D 
7F2B 20F0 
7F2D DD7304 
7F30 DD7205 
7F33 DD7506 
7F36 DD7407 
7F39 DDEI 
7F3B El 
7F3C Dl 
7F3D CI 
7F3E Fl 
7F3F C9 
0000 
00000 TOTAL 



00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 
00560 
00570 
00580 
00590 
00600 
ERRORS 



ORG 7F00H ; 0522 

i* DIVIDE 16 BY 16. DIVIDES A 16-BIT UNSIGNED NUMBER BY * 
A 16-BIT UNSIGNED NUMBER TO GIVE A QUOTIENT AND RE- * 



;* 
;* 

;* 
;* 
;# 

5* 
I* 

;# 

;# 



MAINDER. 
INPUT! 



HL=> PARAMETER BLOCK 
PARAM+0»+l=16-BIT DIVIDEND 
PARAM+2?+3=16-BIT DIVISOR 
PARAM+4,+5=RESERVED FOR QUOTIENT 
PARAM+6?-f-7=RESERVED FOR REMAINDER 
OUTPUT: PARAM+4? +5 HOLDS 16-BIT QUOTIENT 
PARAM+6s+7 HOLDS 16-BIT REMAINDER 



* 

# 

# 
# 
* 
# 
* 






DSSIXT 



DSS020 



DSS030 



PUSH 

PUSH 

PUSH 

PUSH 

PUSH 

CALL 

PUSH 

POP 

LD 

LD 

LD 

LD 

LD 

LD 

EX 

ADD 

EX 

ADC 

INC 

OR 

SBC 

JR 

DEC 

ADD 

DEC 

JR 

LD 

LD 

LD 

LD 

POP 

POP 

POP 

POP 

POP 

RET 

END 



AF 

BC 

DE 

HL 

IX 

0A7FH 

HL 

IX 

E? (IX+0) 

D» (IX+1) 

C? (IX+2) 

B? (IX+3) 

HL?0 

A. 16 

DE?HL 

HLtHL 

DE.HL 

HL?HL 

DE 

A 

HL?BC 

NC?DSS030 

DE 

HL?BC 

A 

NZ?DSS020 

(IX+4)?E 

(IX+5)»D 

(IX+6).L 

(IX+7)?H 

IX 

HL 

DE 

BC 

AF 



JSAVE REGISTERS 



;*##GET PB LOC'N*** 
5 TRANSFER TO IX 

!PUT DIVIDEND INTO DE 

?PUT DIVISOR INTO BC 

5ZERO HL 

f ITERATION COUNT 

?DE TO HL 

5 SHI FT LEFT 

?DE BACK 

5 SHIFT LEFT PLUS CARRY 

!SET Q BIT TO 1 

5 CLEAR CARRY 

5SUB DIVISOR FROM DIVIDEND 

5 GO IF SUBTRACT OK 

; RESET Q BIT 

? RESTORE 

5 DECREMENT ITERATION CNT 

5LOOP FOR 16 ITERATIONS 
5 STORE QUOTIENT 

? STORE REMAINDER 

; RESTORE REGISTERS 



? RETURN TO CALLING PROG 



DSSIXT DECIMAL VALUES 



245? 197 5 213 5 229 » 221) 229? 205-. 127? 10» 
221? 225 ? 221s 94? 0! 221 » 86* 1? 221 » 78 5 
2» 221? 70? 3? 33? 0? 0? 62? 16? 235? 
41? 235? 237? 106? 19? 183? 237? 66? 4B? 2? 
27? 9? 61? 32? 240? 221? 115? 4? 221? 114? 
5? 221? 117? 6? 221 > 116? 7? 221? 225? 225? 
209? 193? 241? 201 



229? 



CHKSUM= 149 
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EXCLOR: EXCLUSIVE OR 



System Configuration 

Model I, Model III, Model II Stand Alone. 

Description 

EXCLOR performs an exclusive OR on two 8-bit operands. 

Input/Output Parameters 

On input, the H register contains operand number one and the L register con- 
tains operand number two. On output, L contains the 8-bit result. 



INPUT 


\ 




OUT 


PUT 


H I 


H 


L 


OPERAND 1 | 


OPERAND 2 





RESULT 





Algorithm 

The EXCLOR subroutine performs the exclusive OR by the XOR instruction and 
returns the result in the L register with H set to zero. 

Sample Calling Sequence 

NAME OF SUBROUTINE? EXCLOR 

HL VALUE? 13141 H =51 =00110011; L = 85 = 01010101 

PARAMETER BLOCK LOCATION? 

MEMORY BLOCK 1 LOCATION? 

MOVE SUBROUTINE TO? 41111 

SUBROUTINE EXECUTED AT 41111 

INPUT! OUTPUT: 

HL= 13141 HL= 102 RESULT: 00110011 XOR 01010101=01100110 

NAME OF SUBROUTINE? 

Notes 

1. BASIC contains no exclusive OR command. 



Program Listing 



7F00 



7F00 F5 
7F01 CD7F0A 



00100 ORG 7F00H 5 0522 

00110 ;***#***####*#*#*****#*********************************** 

00120 5* EXCLUSIVE OR. PERFORMS EXCLUSIVE OR OF TWO EIGHT-BIT * 

00130 ?* OPERANDS. * 

00140 5* INPUT: HL=OPERAND 1 <H) 5 OPERAND 2 (L) * 

00150 I* OUTPUT :HL=OPERAND 1 XOR OPERAND 2 * 

00160 J******************************************************** 

00170 ; 

00180 EXCLOR PUSH AF ;SAVE REGISTERS 

00190 CALL 0A7FH !#**GET OPERANDS*** 
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7F04 7C 


00200 


LD 


A»H 


7F05 AD 


00210 


XOR 


L 


7F06 6F 


00220 


LD 


Li A 


7F07 2600 


00230 


LD 


H?0 


7F09 Fi 


00240 


POP 


AF 


7F0A C39A0A 


00250 


JP 


0A9AH 


7F0D C9 


00260 


RET 




0000 


00270 


END 




00000 TOTAL 


ERRORS 







; OPERAND 1 

? operand 1 xor operand 
; result now in l 
;now in hl 
; restore register 
;***return argument*** 
; non-basic return 



EXCLOR DECIMAL VALUES 



243, 


205 ? 127 5 10 


195i 


154> 10? 201 


HKSU 


1= 42 



124, 173» llli 38? 0? 



241 1 



FILLME: FILL MEMORY 



System Configuration 

Model i, Model III, Model II Stand Alone. 

Description 

FILLME fills a block of memory with a given 8-bit value. Up to 65,535 bytes of 
memory can be filled. 



Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
byte of the parameter block contains the fill value to be used. The next two 
bytes of the parameter block define the starting address for the block of memory 
to be filled in standard Z-80 address format, least significant byte followed by 
most significant byte. The next two bytes of the parameter block contain the 
number of bytes in the block to be filled. 

On output, the block of memory has been filled; the parameter block remains 
unchanged. 







INPUT 

H L 
i 








OUTPUT 
H L 






POINTER TO PARAM+0 

i 


\ 


I - 

UNCHANGED 


















1 




PARAM+0 


FILL CHARACTER 


PARAM+0 


UNCHANGED 




+ 1 
+2 


POINTER 
TO MEM 1+0 


+ 1 

+2 


- UNCHANGED - 




+3 
+4 


# BYTES TO 
FILL 


+4 


- UNCHANGED - 





% 



MEM 1+0 

+ 1 
+ 2 
+3 
+4 
+5 
+6 



AREA 
TO BE 
FILLED 



MEM 1+0 

+ 1 
+2 
+3 
+4 
+5 
+6 



P 



AREA 
FILLED 
WITH 
FILL CHAR- 
ACTER 



Algorithm 

The FILLME subroutine first picks up the number of bytes in the block and puts 
it into the BC register pair. Next, the starting address is put into the HL register 
pair. The A register is then loaded with the fill character. 

The loop at FIL010 fills each byte in the memory block. The count in BC is 
decremented and the pointer in HL is adjusted to point to the next memory 
byte. 



Sample Calling Sequence 



NAME OF SUBROUTINE? FILLME 

HL VALUE? 40000 

PARAMETER BLOCK LOCATION? 40000 

PARAMETER BLOCK VALUES? 



+ i 


6f 


" 


A" FILL CHARACTER 




+ 1 2 


50000 


AREA TO FILL 




+ 3 2 


5 




#OF BYTES 




+ 50 











MEMORY 


BLOCK i 


LOCATION? 50000 


MEMORY 


BLOCK 1 


VALUES? 




+ 02 











+ 2 2 











+ 42 







-INITIALIZE FILL AREA FOR EXAMPLE 


+ 62 











+ 80 











MEMORY 


BLOCK 2 


LOCATION? 




MOVE SUBROUTIN 


E TO? 38000 




SUBROUTINE EXE 


CUTED AT 39000 


INPUT: 






OUTPUT." 




HL= 40000 




HL= 4000B 




PARAM+ 





65 


PARAM+ 


65 


PARAM+ 


1 


80 


PARAM+ i 


80 


PARAM+ 


2 


195 


PARAM+ 2 


195 


PARAM+ 


3 


5 


PARAM+ 3 


5 


PARAM+ 


4 





PARAM+ 4 





MEMBI+ 





■C 


MEMB1+ 


65 




MEMB1+ 


i 


1 


MEMB1+ 1 


65 




MEMBI+ 


2 





MEMB1+ 2 


65 


-FIVE "A"S FILLED 


MEMB1+ 


3 





MEMB1+ 3 


65 




MEMBI+ 


4 





MEMB1+ 4 


65 




MEMBI+ 


5 





MEMB1+ 5 





MEMB1+ 


6 





MEMBI+ 6 





MEMB1+ 


7 





MEMB1+ 7 








NAME OF SUBROUTINE? 
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Notes 

1. The FILLME subroutine can be used to "zero" memory or to initialize the 
video display. 



Program Listing 



7F00 



7F00 
7F01 
7F02 
7F03 
7F04 
7F06 
7F09 
7F0A 
7F0C 
7F0F 
7FI2 
7F15 
7F1B 
7F1B 
7F1C 
7F1D 
7F1E 
7F1F 
7F20 
7F21 
7F22 
7F24 
7F26 
7F27 
7F2S 
7F29 
7F2A 
0000 
00000 



F5 

C5 

D5 

E5 

DDE5 

CD7F0A 

E5 

DDEi 

DD4604 

DD4E03 

DD6602 

DD6E01 

DD7E00 

77 

23 

0B 

57 

78 

Bl 

7A 

20F7 

DDEI 

El 

Dl 

CI 

Fl 

C9 

TOTAL 



00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
001B0 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
ERRORS 



ORG 7F00H 5 0520 

5 ###*#####*#■»#«■*######**#######*######***############*### 
!* FILL MEMORY. FILLS A BLOCK OF MEMORY WITH A GIVEN # 
?* VALUE. * 

?* INPUT! HL=> PARAMETER BLOCK * 

5# PARAM+0=FILL CHARACTER * 

5* PARAM+1?+2=FILL STARTING ADDRESS # 

5* PARAM+3?+4=# OF BYTES TO FILL ? 1 TO 65535. * 

5* 0=65536 * 

J* OUTPUT :BLOCK FILLED WITH GIVEN CHARACTER * 

;#***####«########*##♦♦###*♦######################*#####«. 
5 



FILLME 



FIL010 



PUSH 

PUSH 

PUSH 

PUSH 

PUSH 

CALL 

PUSH 

POP 

LD 

LD 

LD 

LD 

LD 

LD 

INC 

DEC 

LD 

LD 

OR 

LD 

JR 

POP 

POP 

POP 

POP 

POP 

RET 

END 



AF 

BC 

DE 

HL 

IX 

0A7FH 

HL 

IX 

B» (IX+4) 

C» (IX+3) 

H» (IX+2) 

L? (IX+1) 

A, (IX+0) 

( HL ) » A 

HL 

BC 

D?A 

A?B 

C 

A?D 

NZ?FIL010 

IX 

HL 

DE 

BC 

AF 



5SAVE REGISTERS 



?**#GET PB LOC'N*** 
5 TRANSFER HL TO IX 

I PUT # OF BYTES IN BC 

;PUT START IN HL 

fPUT FILL CHARACTER IN A 
;FILL BYTE 

5 BUMP POINTER TO NEXT 
5 DECREMENT COUNT 
;SAVE A 
5 TEST BC 

? RESTORE A 
;GO. IF DONE 
5 RESTORE REGISTERS 



; RETURN TO CALLING PROG 



FILLME DECIMAL VALUES 



245? 197? 213 5 229. 221 ? 229? 205 » 127. 10! 229? 

221» 225? 221? 70? 4? 221) 78? 3? 221? 102? 

2s 221? 110? 1) 221? 126? 0? 119? 35? 11? 

87? 120? 177? 122. 32? 247? 221? 225? 225? 209? 

193? 241? 201 



CHKSUM= 17 
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FKBTST: FAST KEYBOARD TEST 



System Configuration 
Model I, Model III. 

Description 

FKBTST is a "fast" keyboard test that tests for any key press and for five special 
keyboard keys, CLEAR, UP ARROW, DOWN ARROW, LEFT ARROW, and 
RIGHT ARROW. FKBTST returns a zero if no key is being pressed, a negative 
value if one of the special keys is being pressed, or a positive value if another 
key is being pressed. It can be used for games control or any other application 
where fast keyboard scanning is required. 

Input/Output Parameters 

No input parameters are required. On output, HL is returned with a zero for no 
keypress, -1 for CLEAR, -2 for UP ARROW, -3 for DOWN ARROW, -4 for 
LEFT ARROW, and -5 for RIGHT ARROW, or +1 through +127 for other key 
combinations. 



INPUT 
H L 

1 



OUTPUT 
H L 



NONE 



KEY CODE OR 



Algorithm 

The row address for the special keys is 3840H. This row is first read by an "LD 
A,(3840H)." The contents of A are then compared with the column bit configu- 
ration for the special keys (2, 8, 16, 32, and 64), and if there is a match the 
corresponding negative code is returned in HL. If there is no match, a "LD 
HL,(387FH)" is done. This reads all column bits into L. H is then cleared. If 
there was no key press, HL will now be set to zero. 

Sample Calling Sequence 



NAME OF SUBROUTINE? FKBTST 

HL VALUE? 

PARAMETER BLOCK LOCATION? 

MEMORY BLOCK 1 LOCATION? 

MOVE SUBROUTINE TO? 45000 

SUBROUTINE EXECUTED AT 45000 

INPUT: OUTPUT! 

HL= HL= 65533 -3= DOWN ARROW 



NAME OF SUBROUTINE? 



Notes 

1. Detection of a special key will take about 60 microseconds, average time. 
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2. FKBTST may be used to detect multiple key presses, such as "JKL" or 
"123." 

3. The SHIFT key is not tested. 

Program Listing 



7F00 




00100 






ORG 




7F00H 


; 0522 








00110 


;#*##*##*#########*###*#«-########*#-»####*######*-####### 








00120 


;* 


FAST 


KEYBOARD TEST. TESTS 


FOR ANY KEYPRESS AND FOR 


* 






00130 


5* 


FIVE 


SPECIAL 


KEYS. 




# 






00140 


S* 


INPUT: 


NONE 




* 






00150 


i* 


OUTPUT SHL 


=0 FOR NO KEY 


PRESS* -1 FOR CLEAR. -2 FOR 


* 






00160 


;* 






UP 


ARROW? -3 FOR 


DOWN ARROW? -4 FOR LEFT 


# 






00170 


5* 






ARROW, AND -5 FOR RIGHT ARROW? 1-127 FOR 


* 






00180 


;* 






OTHER KEY COMBINATIONS. 


* 






00190 


;###«■##########«•«•####*#♦#######*########«•#####*######*### 






00200 


; 














7F0® 


F5 


00210 


FKBTST 


PUSH 




AF 


!SAVE REGISTER 




7F0I 


21FFFF 


00220 






LD 




HLs-1 


S CLEAR CODE 




7F04 


3A4038 


00230 






LD 




A, (3840H) 


5READ ROW 




7F07 


FE02 


00240 






CP 




2 


5 CLEAR? 




7F09 


2819 


00250 






JR 




Z,FKB010 


5 GO IF YES 




7F0B 


2B 


00260 






DEC 




HL 


?UP ARROW CODE 




7F0C 


FE08 


00270 






CP 




8 


5 UP ARROW? 




7F0E 


2814 


00280 






JR 




Z.FKB010 


?GO IF YES 




7F10 


2B 


00290 






DEC 




HL 


5DOWN ARROW CODE 




7F11 


FE10 


00300 






CP 




16 


5 DOWN ARROW? 




7F13 


280F 


00310 






JR 




Z»FKB010 


IGO IF YES 




7F15 


2B 


00320 






DEC 




HL 


?LEFT ARROW CODE 




7F16 


FE20 


00330 






CP 




32 


5LEFT ARROW? 




7F1S 


280A 


00340 






JR 




Z,FKB010 


?GO IF YES 




7F1A 


2B 


00350 






DEC 




HL 


5 RIGHT ARROW CODE 




7F1B 


FE40 


00360 






CP 




64 


; RIGHT ARROW? 




7F1D 


2805 


00370 






JR 




Z,FKB010 


?GO IF YES 




7F1F 


2A7F38 


00380 






LD 




HL, (387FH) 


;READ ALL COLUMNS 




7F22 


2600 


00390 






LD 




H,0 


5 RESULT IN HL 




7F24 


Fl 


00400 


FKB010 


POP 




AF 


? RESTORE REGISTER 




7F25 


C39A0A 


00410 






JP 




0A9AH 


;#*#RETURN ARGUMENT*** 




7F28 


C9 


00420 






RET 






! NON-BASIC RETURN 




0000 




00430 






END 










00000 TOTAL 


ERRORS 

















FKBTST DECIMAL VALUES 



245, 33, 255, 255, 58, 64, 56, 254, 2, 40, 
25, 43, 254, 8, 40, 20, 43, 254, 16, 40, 
15, 43, 254, 32, 40, 10, 43, 254, 64, 40, 
5, 42, 127, 56, 38, 0, 241, 195, 154, 10, 
2 HI 



CHKSUM= 29 



FSETGR: FAST GRAPHICS SET/RESET 



System Configuration 
Model I, Model III. 
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Description 

FSETGR is a subroutine that sets or resets a given screen pixel. It is designed to 
perform screen actions rapidly and uses a table lookup structure to avoid the 
time-consuming processing present in other graphics subroutines. Any of the 
6144 graphics pixels, arranged in 128 columns by 64 rows, may be set or reset. 
Previous to using FSETGR, the screen area to be utilized must have been 
cleared with graphics characters (80H). 

Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
two bytes of the parameter block are the starting address of the FSETGR subrou- 
tine, in standard Z-80 address format, least significant byte followed by most 
significant byte. The next byte of the parameter block is the x coordinate, to 
127. The next byte of the parameter block is the y coordinate, to 47. The next 
byte of the parameter block is a set/reset flag. This byte is if the pixel is to be 
set, or if the pixel is to be reset. 

On output, the pixel is set or reset, and the parameter block remains un- 
changed. 



INPUT 



1 

POINTER TO PARAM+0 








M+0 
+ 1 


START 
- ADDRESS OF - 

FSETGR 




+2 


X, 0-127 




+3 


Y, 0-47 




+4 


0=SET, 1=RESET 









OUTPUT 
H I 




\ 


UNCHANGED 




PARAM+0 

+ 1 

+2 

+4 


i 




- UNCHANGED - 




UNCHANGED 




UNCHANGED 




UNCHANGED 





Algorithm 

The FSETGR subroutine uses a table of 48 entries to implement fast graphics. 
Each entry in the table corresponds to one of the 48 rows of graphics and gives 
the actual memory address that contains the pixel and the mask to be used in 
processing the pixel. The first twelve bits of an entry represent the memory 
address when four zeroes are added to the twelve bits. The fifth entry of 3C44H, 
for example, represents 3C40H, the start of the fifth graphics row in memory. 
The last four bits represent the graphics mask to be used in processing, as we'll 
explain. 

FSETGR first gets the y value from the parameter block. This y value is multi- 
plied by 2 and added to the base address of FSETGR and TABLEA displace- 
ment; the result points to the TABLEA entry. The entry address is put into HL and 
IY. Next, the four least significant bits of HL are reset to mask out the graphics 
mask. HL now points to the start of the line containing the graphics byte. 

Next, the x address is picked up from the parameter block. The x address is 
divided by two and added to the HL register. The HL register now points to the 
actual byte in memory containing the pixel to be processed. 
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Next, the A register is loaded with the least significant byte from the TABLEA 
table. This contains the graphics mask. The mask value is ANDed with 1 FH to 
get only the mask. If X is even, the mask is left unchanged, as it represents the 
left-hand bit; if X is odd, the mask is shifted left for the right-hand bit. 

The byte containing the pixel is now loaded into B. If a set is to be done, the 
mask in A is ORed with B and the result stored to set the pixel. If a reset is to 
be done, the complement of the mask in A is ANDed with B and the result 
stored to reset the pixel. 

Sample Calling Sequence 



NAME OF SUBROUTINE? FSETGR 

HL VALUE? 40000 

PARAMETER BLOCK LOCATION? 40000 

PARAMETER BLOCK VALUES? 

START OF FSETGR 

X, Y = 64, 24 

SET 

MEMORY BLOCK 1 LOCATION? 
MOVE SUBROUTINE TO? 37000 
SUBROUTINE EXECUTED AT 37000 



+ 





2 


37 


+ 


2 


1 


64 


+ 


3 


1 


24 


+ 


4 


1 





+ 


5 









INPUT: 




OUTPUTS 






HL= 40000 




HL= 40000 






PARAM+ 


136 


PARAM+ 


136 




PARAM+ 1 


144 


PARAM+ 1 


144 




PARAM+ 2 


64 


PARAM+ 2 


64 


- UNCHANGED 


PARAM+ 3 


24 


PARAM+ 3 


24 




PARAM+ 4 





PARAM+ 4 








NAME OF SUBROUTINE? 



Notes 



1. This subroutine can set/reset about 4000 points per second. 



Program Listing 



7F00 



7F00 
7F01 
7F02 
7F03 
7F04 
7F06 
7F08 
7F0B 



F5 

C5 

D5 

E5 

DDES 

FDE5 

CD7F0A 

E5 



00100 
00110 
00 1 20 
00130 
00140 
00150 
00 1 60 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 



ORG 7F00H ; 0522 

iff******************************************************* 

;* FAST GRAPHICS SET/RESET. SETS/RESETS A GIVEN PIXEL. * 

?* INPUT :HL=> PARAMETER BLOCK * 

;* PARAM+0 f +l=START ADDRESS OF FSETGR * 

;* PARAM+2=X» TO 127 * 

5* PARAM+3=Y» TO 47 * 

;* PARAM+4=SET/RESET FLAG. 0=SET* 1=RESET * 

;* OUTPUT: PIXEL SET OR RESET * 



FSETSR 



PUSH 
PUSH 
PUSH 
PUSH 
PUSH 
PUSH 
CALL 
PUSH 



AF 

BC 

DE 

HL 

IX 

IY 

0A7FH 

HL 



5 SAVE REGISTERS 



;***GET PB LOC'N*#* 
1 TRANSFER TO IX 
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I 
I 



7F0C 


DDE 1 


00290 


POP 


IX 


7F0E 


1600 


00300 


LD 


D»0 


7F10 


DD5E03 


00310 


LD 


E, ( I.X + 3) 


7F13 


CB23 


00320 


SLA 


E 


7F15 


DD6E00 


00330 


LD 


L, (IX+0) 


7F.1.8 


DD6601 


00340 


LD 


H. (IX+1 ) 


7F1B 


19 


00350 


ADD 


HI... » DE 


7F1C 


0.1.5700 


00360 


LD 


BC, TABLEA 


7F 1 F 


09 


00370 


ADD 


HL.BC 


7F20 


E5 


00380 


PUSH 


HL 


7F21 


FDE 1 


00390 


POP 


IY 


7F23 


FD7E00 


00400 


LD 


A» (IY+0) 


7F26 


E6E0 


004 1 


AND 


0E0H 


7F28 


6F 


00420 


LD 


L,A 


7F29 


FD660J 


00430 


LD 


H» <IY+1 ) 


7F2C 


DD5E02 


00440 


LD 


E, (IX+2) 


7F2F 


1600 


00450 


LD 


D»0 


7F31 


CB3B 


00460 


SRL 


E 


7F33 


19 


00470 


ADD 


HL , DE 


7F34 


FD7E00 


00480 


LD 


A, (IY+0) 


7F37 


E61F 


00490 


AND 


1FH 


7F39 


DDCB0246 


00500 


BIT 


5 <IX+2) 


7F3D 


2802 


00510 


JR 


ZiFSE020 


7F3F 


CB27 


00520 


SLA 


A 


7F41 


46 


00530 FSE020 


LD 


B, (HL) 


7F42 


DDCB0446 


00540 


BIT 


5 (IX+4) 


7F46 


2804 


00550 


JR 


Z , FSE030 


7F48 


2F 


00560 


CPL 




7F49 


A0 


00570 


AND 


B 


7F4A 


1801 


00580 


JR 


FSE040 


7F4C 


B0 


00590 FSE030 


OR 


B 


7F4D 


77 


00600 FSE040 


LD 


<HL)» A 


7F4E 


FDE1 


00610 


POP 


IY 


7F50 


DDE1 


00620 


POP 


IX 


7F52 


El 


00630 


POP 


HL 


7F53 


Dl 


00640 


POP 


DE 


71 54 


CI 


00650 


POP 


BC 


7F55 


Fl 


00660 


POP 


AF 


7i 56 


C9 


00670 


RET 




0057 




00680 TABLEA 


EQU 


$~FSETGR 


7f 57 


013C 


00690 


DEFW 


3C00H+1 


7F59 


043C 


00700 


DEFW 


3C00H+4 


7F5B 


103C 


00710 


DEFW 


3C00H+16 


7F5D 


413C 


00720 


DEFW 


3C40H+1 


7F5F 


443C 


00730 


DEFW 


3C40H+4 


7F61 


503C 


00740 


DEFW 


3C40H+16 


7F63 


813C 


00750 


DEFW 


3C80H+1 


7F65 


843C 


00760 


DEFW 


3C80H+4 


7F67 


903 C 


00770 


DEFW 


3C80H+16 


7F69 


C13C 


00780 


DEFW 


3CC0H+1 


7F6B 


C43C 


00790 


DEFW 


3CC0H+4 


7F6D 


D03C 


00800 


DEFW 


3CC0H+16 


7F6F 


013D 


00810 


DEFW 


3D00H+1 


7F71 


043D 


00820 


DEFW 


3D00H+4 


7F73 


1031) 


00830 


DEFW 


3D00H+16 


7F75 


413D 


00840 


DEFW 


3D40H+1 


7F77 


443D 


00850 


DEFW 


3D40H+4 


7F79 


503D 


00860 


DEFW 


3D40H+16 


7F7B 


81 3D 


00870 


DEFW 


3D80H+1 


7F7D 


843D 


00880 


DEFW 


3D80H+4 


7F7F 


903D 


00890 


DEFW 


3D80H+16 


7F8.1 


0130 


00900 


DEFW 


3DC0H+1 


7F83 


C43D 


00910 


DEFW 


3DC0H+4 


7F85 


D03D 


00920 


DEFW 


3DC0H+16 


7F87 


013E 


00930 


DEFW 


3E00H+1 


7F89 


043E 


00940 


DEFW 


3E00H+4 


7F8B 


1 03E 


00950 


DEFW 


3E00H+16 


7F8D 


41 3E 


00960 


DEFW 


3E40H+1 



5ZERO D 

;Y TO DE 

?2*Y FOR TABLE LOOKUP 

;GET BASE ADDRESS 

;ADD 2#Y 

; TABLE DISPLACEMENT 
; POINT TO TABLE START 
; TRANSFER TO IY 

;GET LINE START 
5MASK OUT MASK! 
?LS BYTE NOW IN L 

;GET X 
;NOW IN DE 

;now x/2 

; point to graphics byte 

;GET BIT 

;GET MASK VALUE 

> TEST LSB OF X FOR ODD/EVEN 

;G0 IF LEFT 

5 RIGHT COLUMN 

;GET GRAPHICS BYTE 

;TEST SET/RESET 

;60 IF SET 

; INVERT MASK 

; RESET BIT 

3 CONTINUE 

5 SET BIT 

5 STORE GRAPHICS BYTE 

5 RESTORE REGISTERS 



; RETURN TO CALLING PROG 
5DISP OF TABLE FROM START 
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7F8F 
7F91 
7F93 
7F95 
7F97 
7F99 
7F9B 
7F9D 
7F9F 
7FA1 
7FA3 
7FA5 
7FA7 
7FA9 
7 FAB 
7FAD 
7FAF 
7FB1 
7FB3 
7FB5 
0000 
00000 



443E 
503E 
81 3E 
843E 
903E 
C13E 
C43E 
D03E 
1 3F 
043F 
1 03F 
413F 
443F 
503F 
813F 
843F 
903F 
C13F 
C43F 
D03F 

TOTAL 



00970 
00980 
00990 
01000 
01010 
01020 
01030 
01040 
01050 
01060 
01070 
01080 
01090 
01100 
01110 
01120 
01 130 
01140 
01150 
01160 
01170 
ERRORS 



DEFW 


3E40H+4 


DEFW 


3E40H+16 


DEFW 


3E80H+1 


DEFW 


3E80H+4 


DEFW 


3E80H+16 


DEFW 


3EC0H+1 


DEFW 


3EC0H+4 


DEFW 


3EC0H+16 


DEFW 


3F00H+1 


DEFW 


3F00H+4 


DEFW 


3F00H+16 


DEFW 


3F40H+1 


DEFW 


3F40H+4 


DEFW 


3F40H+16 


DEFW 


3F80H-H 


DEFW 


3F80H+4 


DEFW 


3F80H+16 


DEFW 


3FC0H+1 


DEFW 


3FC0H+4 


DEFW 


3FC0H+16 


END 





FSETGR DECIMAL VALUES 



245s 197. 213, 229 » 221. 229s 253. 229. 2 
10. 229. 221. 225. 22. 0, 221. 94, 3. 203, 
35. 221. 110. 0. 221. 102. 1. 25. 1. 87, 
0, 9, 229. 253, 225, 253, 126, 0, 230, 224. 
Ill, 253, 10k.'. 1. 221, 94. 2. 22. 0, 203. 

59. 25. 253, 126, 0, 230, 31, 221, 203, 2. 
70. 40. k. 203, 39, 70, 221. 203. 4. 70, 
40, 4. 47. 160, 24, 1, 176, 119. 253, 225. 
221, 225, 225, 209, 193, 241, 201, 1, 60, 4 

60, 16. 60. 65? 60. 68. 60, 80, 60, 129, 

60, 132. 60. 144, 60, 193, 60, 196. 60. 208 
60? 1, 61, 4, 61, 16, 61, 65. 61, 68. 

61, 80, 61, 129. 61, 132, 61, 144, 61, 193, 

61, 196. 61. 208, 61, 1, 62, 4. 62. 16, 

62. 65. 62. 68? 62. 80. 62, 129, 62, 132, 

62. 144. 62, 193, 62, 196, 62, 208, 62, 1, 

63, 4. 63, 16, 63, 65, 63, 68, 63, 80, 

63, 129? 63, 132, 63, 144, 63, 193. 63, 196 
63, 208, 63 



5, 127, 



iNBLCK: INSERT BLOCK 



CHKSUM= 69 



System Configuration 

Model I, Model III, Model II Stand Alone. 

Description 

INBLCK inserts a block in the middle of a larger block of memory. The block is 
inserted by moving down all bytes after the insertion point, as shown below. 
This subroutine could be used for inserting a block of text, for example, and 
moving the remaining text below the inserted block. Both the "larger block" 
and "insert block" may be any size, up to the limits of memory. 
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Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
two bytes of the parameter block contain the address of the larger block in 
standard Z-80 address format, least significant byte followed by most significant 
byte. The next two bytes are the address of the insertion block in Z-80 address 
format. The next two bytes are the address of the insertion point in Z-80 address 
format. The next two bytes of the parameter block contain the number of bytes 
in the larger block; the next two bytes contain the number of bytes in the 
deletion block. Both are in standard Z-80 format. 

On output, the contents of the parameter block remain unchanged. The inser- 
tion block has been inserted by a move of the insertion block into the insertion 
point. 



INPUT 



POINTER TO PARAM+0 

1 



OUTPU T 
H L 



UNCHANGED 



PARAM+0 

+ 1 


POINTER TO 

- LARGE BLOCK - 

START (MEM 1+0) 




+2 
+3 


POINTER TO 

- INSERT BLOCK - 

(MEM2+0) 




+4 
+5 


INSERT 

- ADDRESS IN - 

LARGE BLOCK 




+6 

+7 


# BYTES 

IN 

LARGE BLOCK 




+8 

+9 


# BYTES 

IN 

INSERT BLOCK 





$ 



PARAM+0 
+ 1 

+2 
+3 
+4 
+5 
+6 
+7 
+8 
+9 



UNCHANGED -- 



UNCHANGED 



-- UNCHANGED -- 



-- UNCHANGED -- 



UNCHANGED -- 



MEM 1+0 

+ 1 

+2 

+3 
+4 
+5 
+6 

MEM2+0 

+ 1 
+2 
+3 
+4 
+5 
+6 



"LARGE" 
BLOCK 



MEM 1+0 



INSERT 
BLOCK 



=> 



MEM2+0 

+ 1 
+2 
+3 
+4 
+5 
+6 



"LARGE- 
BLOCK 
WITH 
INSERT 
BLOCK 

INSERTED 



/ INSERT / 
/ / BLOCK 



UNCHANGED 
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Algorithm 

The INBLCK subroutine performs the insertion by "opening up" space in the 
larger block for the bytes of the insertion block and then moving the insertion 
block into the space created. 

Space is created by doing a block move downward of the area in the larger 
block from the insertion point to the end. This must be an LDDR to avoid 
replication of data. The LDDR is followed by an LDIR to insert the insertion 
block. 

The LDDR must be set up with HL containing the address of the last byte of the 
larger block, DE containing the address of the last byte of the larger block plus 
the number of bytes in the insertion block, and BC containing the number of 
bytes in the larger block from the insertion point on. The HL address is found by 
adding the start of the larger block plus the number of bytes in the larger block 
minus one. This is saved in the stack for the LDDR. The BC count is found by 
subtracting the insert address from the end address and adding one. This is also 
saved for the LDDR. The DE address is found by adding the number of bytes in 
the insertion block to the end address. The move is then done by an LDDR. 

The LDIR for the insert is then done after setting up DE with the address of the 
insertion point, HL with the address of the insertion block, and BC with the 
number of bytes of the insertion block. 

Sample Calling Sequence 



NAME OF SUBROUTINE? INBLCK 

HL VALUE? 40000 

PARAMETER BLOCK LOCATION? 40000 

PARAMETER BLOCK VALUES? 



+ 


2 


50000 LARGE BLOCK START 


+ 2 


2 


55000 INSERT BLOCK START 


+ 4 


2 


50002 INSERT POINT 


+ 6 


2 


5 5 BYTES IN LARGE BLOCK 


+ 8 


2 


3 3 BYTES IN INSERT BLOCK 


+ 10 





MEMORY 


BLOCK 1 LOCATION? 50000 


MEMORY 


BLOCK 1 VALUES? 


+ 


1 


~ 






+ 1 


1 


1 






+ 2 


1 


2 


-LARGE BLOCK 




+ 3 
+ 4 


1 
1 


3 
4 




-INITIALS 


+ 5 


1 


5 




+ 6 


1 


6 




+ 7 


1 


7 




+ 8 


1 





+ 9 








MEMORY 


BLOCK 2 LOCATION? 55000 


MEMORY 


BLOCK 2 VALUES? 


+ 


1 


255 




+ i 


1 


254 


-INSERT BLOCK 


+ 2 


1 


253 





NITIALIZE LARGE BLOCK FOR EXAMPLE 



+ 300 

MOVE SUBROUTINE TO? 37000 

SUBROUTINE EXECUTED AT 37000 

INPUTS OUTPUT: 

HL= 40000 HL= 40000 
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PARAM+ 





30 


PARAM+ 





80 


PARAM+ 


1 


195 


PARAM+ 


1 


195 


PARAM+ 


jL 


216 


PARAH+ 


jt- 


216 


PARAM+ 


3 


214 


PARAM+ 


3 


214 


PARAM+ 


4 


82 


PARAM+ 


4 


82 


PARAM+ 


5 


195 


PARAM+ 


5 


195 


PARAM+ 


6 


5 


PARAM+ 


6 


5 


PARAM+ 


7 





PARAM+ 


7 





PARAM+ 


S 


3 


PARAM+ 


8 


3 


PARAM+ 


9 





PARAM+ 


9 





MEMB1+ 








MEMB1+ 








MEMB1+ 


1 


1 


MEMB1+ 


1 


1 


MEMB1+ 


2 


2 


MEMB1+ 


2 


255 


MEMB1+ 


3 


3 


MEMB1+ 


3 


254 


MEMB1+ 


4 


4 


MEMB1+ 


4 


253 


MEMB1+ 


5 


5 


MEMB1+ 


5 




MEMB 1 + 


6 


6 


MEMB1+ 


6 


3 


MEMB1+ 


7 


7 


MEMB1+ 


7 


4 


MEMB1+ 


8 





MEMB1+ 


8 





MEMB2+ 





255 


MEMB2+ 





255 


MEMB2+ 


1 


254 


MEMB2+ 


1 


254 


MEMB2+ 


2 


253 


MEMB2-+ 


2 


253 



•UNCHANGED 



•ORIGINAL DATA 
•INSERTED DATA 

■ORIGINAL DATA 



8 BYTES 

OF NEW BLOCK 



UNCHANGED INSERT BLOCK 



NAME OF SUBROUTINE? 

Notes 

1. The maximum number of bytes in either block may be 65,535. 

2. The term "larger block" is somewhat misleading. The larger block may be 
smaller than the insertion block! 

3. The insertion point must be within the larger block. 

Program Listing 



7F00 



7F00 
7F01 
7F02 
7F03 
7F04 
7F06 
7F09 
7F0A 
7F0C 
7F0F 
7F12 
7F15 
7F18 
7F19 
7F1A 



F5 

C5 

D5 

E5 

DDES 

CD7F0A 

E5 

DDE1 

DD6E00 

DD6601 

DD4E06 

DD4607 

09 

2B 

E5 



00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
002 1 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 



ORG 7F00H 5 0520 

l# INSERT BLOCK. INSERTS BLOCK IN MIDDLE OF LARGER BLOCK* 

INPUT: HL=>PARAMETER BLOCK * 

PARAM+0,+l=START ADDRESS OF LARGER BLOCK * 

PARAM+2»+3=START ADDRESS OF INSERT BLOCK # 

PARAM+4 5 +5= INSERT ADDRESS IN LARGER BLOCK * 

PARAM+6,+7=# OF BYTES IN LARGER BLOCK * 

PARAM+8 5 +9=# OF BYTES IN INSERT BLOCK * 

OUTPUTS INSERT BLOCK INSERTED IN LARGER BLOCK AND * 

FOLLOWING BYTES MOVED DOWN * 



i* 

! * 

;* 
;* 
; # 
i* 
;# 
; # 



INBLCK 



PUSH 

PUSH 

PUSH 

PUSH 

PUSH 

CALL 

PUSH 

POP 

LD 

LD 

LD 

LD 

ADD 

DEC 

PUSH 



AF 

BC 

DE 

HL 

IX 

0A7FH 

HL 

IX 

L» 

Hi 

C» 

B» 

HL 

HL 

HL 



(IX+0) 

(IX+1 ) 
(IX+6) 
< IX+7) 
.BC 



;SAVE REGISTERS 



;***GET PB ADDRESS*** 
; TRANSFER TO IX 

5 START OF LARGE BLOCK 

;# OF BYTES IN LARGE BLK 

;END OF LARGE BLK+1 
; SAVE 
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7F1B DD4E04 


00380 


LD 


C» (IX+4) 


7F1E DD4605 


00390 


LD 


B, (IX+5) 


7F21 B7 


00400 


OR 


A 


7F22 ED42 


00410 


SBC 


HL.BC 


W& g? 


mm 


M 


Bfc 


7F26 E5 


00440 


PUSH 


HL 


7F27 DD6E08 


00450 


LD 


L, (IX+8) 


7F2A DD6609 


00460 


LD 


H, (IX+9) 


7F2D 19 


00470 


ADD 


HL , DE 


7F2E EB 


00480 


EX 


DE.HL 


?t'2F CI 


00490 


POP 


BC 


7F30 EDBS 


00500 


LDDR 




7F32 DD5E04 


005 1 


LD 


E, (IX+4) 


7F35 DD5605 


00520 


LD 


D, (IX+5) 


7F3S DD6E02 


00530 


LD 


L» (IX+2) 


7F3B DD6603 


00540 


LD 


H, (IX+3) 


7F3E DD4E08 


00550 


LD 


C, (IX+8) 


7F41 DD4609 


00560 


LD 


B. (IX+9) 


7F44 EDB0 


00570 


LDIR 




7F46 DDE1 


00580 


POP 


IX 


7F4S Ei 


00590 


POP 


HL 


7F49 Dl 


00600 


POP 


DE 


7F4A CI 


00610 


POP 


BC 


7F4B Fl 


00620 


POP 


AF 


7F4C C9 


00630 


RET 




0000 


00640 


END 




00000 TOTAL 


ERRORS 







5 INSERT ADDRESS 

! CLEAR CARRY 
5FIND # TO MOVE 

5 SOURCE ADDRESS 
5SAVE # TO MOVE 
;# OF BYTES IN INSERT BLK 

5 FIND DESTINATION 

SPUT IN PROPER REGISTERS 

5 RESTORE # 

JMOVE BYTES 
; INSERT ADDRESS 

? SOURCE ADDRESS 

?# OF BYTES TO MOVE 

5 MOVE INSERT BLK TO INS PT 
; RESTORE REGISTERS 



5 RETURN TO CALLING PROG 



INBLCK DECIMAL VALUES 



245, 197s 21 3i 229, 221. 229. 205, 
221, 225? 221. 110. 0, 221, 102, 1. 
6, 221. 70, 7, 9, 43. 229, 221, 78, 
221, 70, 5, 183, 237, 66, 35, 209, 



127, 


10, 


22 1 , 


78 


4, 




229 , 


221 



229, 



110, 8, 221, 102, 9, 25, 

221, 94, 4, 221, 86, 5, 

102, 3, 221, 78, 8, 221, 

221. 225, 225, 209, 193, 



235, 193, 237, li 
221 i 110, 2, 221, 
70, 9, 237, 176, 
241, 201 



METEST: MEMORY TEST 



CHKSUM= 66 



System Configuration 

Model I, Model III, Model II Stand Alone. 



Description 

This subroutine tests a given block of memory by a "PUSH/POP" method. One 
pass is made through the test with each byte of the block being tested twice, 
except for the starting and ending addresses of the block, which are tested only 
once. Pseudo-random data is used to test all locations. 

The memory test is considered successful if pseudo-random data can be writ- 
ten into every location and then retrieved successfully. If data is retrieved and it 
is not identical to the pattern stored, the test immediately returns with an error 
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flag set, a record of the failing location, the proper test pattern, and the errone- 
ous result. 

METEST should be called repetitively to exercise and test memory; the more 
iterations performed, the greater the confidence that memory is working. 



Input/Output Parameters 

On input, the HL register pair points to a parameter block on entry to METEST. 
The first two bytes of the parameter block contain the starting address of the 
block to be tested. The next two bytes contain the ending address of the block. 
The ending address must be at least one location greater than the starting ad- 
dress. 

The next four bytes are reserved for the test results. 

The last two bytes contain a "seed" value for the memory test data. This seed 
value must be nonzero. 

On output, PARAM+4, +5 contain the address of the failing location or the 
address of the failing location minus one if the test failed at any point. It con- 
tains a zero if the test was a success. PARAM+6, + 7 and PARAM+8, +9 
contain additional failure parameters. 



INPUT 



OUTPUT 



I 
I 
I 
I 
I 









H L 






POINTER TO PARAM+0 
i 


PARA 










M+0 

+ 1 
+2 
+3 
+4 
+5 
+6 
+7 
+8 
+9 




STARTING 
ADDRESS 
OF BLOCK 




ENDING 
ADDRESS 
OF BLOCK 






RESERVED 
FOR SUCCESS - 
FLAG 






RESERVED 
FOR "IS" 
RESULT 






"SEED- 
VALUE 





UNCHANGED 



PARAM+0 

+ 1 
+2 
+3 
+4 
+5 



-- UNCHANGED 



=> 



-- UNCHANGED -- 



0=SUCCESS- 

FUL, FAILING 

ADDRESS IF NOT 



"IS" VALUE 
ON FAILURE 



"SHOULD BE" 

VALUE ON 

FAILURE 



The byte of PARAM+6 is the byte at the location equal to the failing address; 
the byte at PARAM+ 7 is the byte at a location one less than the failing address. 
Here's an example: If the failing word location is 20H, 80H (location 8020H) 
and PARAM+6, +7 contain a 63H, 32H with PARAM+8, +9 containing 67H, 
32H, then the failing location is bit 2 of 8021 H. If the failing word location is 
8020H, PARAM+6, +7 contains a 66H, 32H and PARAM+8, +9 contains 
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67H, 33H then the failing location is bitO of8020H. It is possible, of course, for 
both bytes to fail in the test. 

A typical memory test first stores all zeroes into memory and then reads back 
the locations expecting to find all zeroes. It then stores all ones and reads back 
the data expecting all ones. At this point random data is usually stored and read 
back. METEST bypasses the first two tests of zeroes and ones. 

More comprehensive memory tests are geared to the physical implementation 
of the type of memory. Various memory types have "worst case" test patterns. 
The dynamic memory used in the TRS-80s typically fails when adjacent loca- 
tions are accessed. This test is an attempt to rapidly access adjacent locations 
by using stack instructions. Each PUSH or POP accesses two adjacent loca- 
tions. Pseudo-random (repeatable) data is used for the test. 

The pseudo-random data is generated from the last value in PARAM+8, +9. 
This value is multiplied by an odd power of 5, 125. The result is used as a test 
pattern for the two-byte PUSH and as the basis for the next generation of ran- 
dom data. The starting "seed" value can be maintained in later tests or varied 
to generate a new set of pseudo-random numbers. 

Sample Calling Sequence 



NAME OF SUBROUTINE? METEST 

HL VALUE? 40000 

PARAMETER BLOCK LOCATION? 4000E 

PARAMETER BLOCK VALUES? 

+ 2 42000 START ADDRESS 

+ 2 2 48000 END ADDRESS 

4 
4 







42000 
48000 



1234 




SEED VALUE 



MEMORY BLOCK 1 LOCATION? 
MOVE SUBROUTINE TO? 37800 
SUBROUTINE EXECUTED AT 37800 



INPUT: 

HL= 40000 

PARAM4- 

PARAM+ 

PARAM+ 

PARAM4- 

PARAM4- 

PARAM+ 

PARAM+ 

PARAM4- 

PARAM4- 

PARAM4- 



1 

3 
4 
5 
6 

7 



16 

164 

128 

187 









210 

4 



OUTPUT: 

HL= 40000 

PARAM+ 

PARAM4- 

PARAM+ 

PARAM+ 

PARAM+ 

PARAM+ 

PARAM+ 

PARAM+ 

PARAM+ 

PARAM4- 



1 

3 
4 
5 
6 
7 
B 
9 



16 

164 

128 

187 





82 

238 

82 

238 



-UNCHANGED 



-SUCCESS FLAG 



LAST "IS" VALUE 



LAST "SHOULD BE" VALUE 



NAME OF SUBROUTINE? 



Notes 



1. Make certain ending location is at least one more than starting location. 

2. Odd seed values generate a string of odd test values, even seed values 
generate even test values. 
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Program Listing 



7F00 



7F00 
7F01 
7F02 
7F03 
7F04 
7F06 
7F0B 
7F0B 
7F0C 
7F0E 
7F0F 
7F12 
7F15 
7F19 
7F1B 
7F1E 
7F21 
7F24 
7F27 
7F2A 
7F2D 
7F2E 
7F31 
7F34 
7F35 
7F36 
7F39 
7F3C 
7F3D 
7F3E 
7F40 
7F41 
7F42 
7F44 
7F45 
7F47 
7F48 
7F4A 
7F4B 
7F4D 
7F50 
7F53 
7F54 
7F55 
7F56 
7F58 
7F59 
7F5C 



F5 

C5 

D5 

E5 

DDE5 

FDE5 

CD7F0A 

E5 

DDE1 

F3 

DD4E02 

DD4603 

FD2 10000 

FD39 

DD6E00 

DD6601 

DD7504 

DD7405 

DD6E04 

DD6605 

23 

DD7504 

DD7405 

23 

F9 

DD6E08 

DD6609 

5D 

54 

3E07 

29 

3D 

20FC 

B7 

EDS 2 

B7 

EDS 2 

B7 

EDS 2 

DD7508 

DD7409 

E5 

Dl 

B7 

ED52 

19 

DD7506 

DD7407 



00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 
00560 
00570 
00580 
00590 
00600 
00610 
00620 
00630 
00640 
00650 
00660 
00670 
00680 
00690 
00700 
00710 
00720 



ORG 7F00H 5 0520 

i ******************************************************** 

i* MEMORY TEST. TESTS A BLOCK OF MEMORY. * 

;* INPUT: HL=> PARAMETER BLOCK * 

5* PARAM+0»+l=STARTING ADDRESS OF BLOCK # 

;* PARAM+2 5 +3=ENDING ADDRESS OF BLOCK * 

;# PARAM+4>+5 RESERVED FOR SUCCESS FLAG * 

;* PARAM+6,+7=RESERVED FOR "IS" RESULT * 

;* PARAM+8,+9=N0N-ZER0 "SEED" VALUE * 

;* OUTPUT: PARAM+4> +5=0 IF TEST SUCCESSFULj FAILING * 

5* LOCATION IF TEST NOT SUCCESSFUL * 

;* PARAM+6 5 +7=TWO BYTES FROM MEMORY - "IS" * 

;* PARAM+B»+9=TE3T PATTERN - "S/B" * 



5 

METEST 



MET010 



MET02B 



PUSH 

PUSH 

PUSH 

PUSH 

PUSH 

PUSH 

CALL 

PUSH 

POP 

DI 

LD 

LD 

LD 

ADD 

LD 

LD 

LD 

LD 

LD 

LD 

INC 

LD 

LD 

INC 

LD 

LD 

LD 

LD 

LD 

LD 

ADD 

DEC 

JR 

OR 

SBC 

OR 

SBC 

OR 

SBC 

LD 

LD 

PUSH 

POP 

OR 

SBC 

ADD 

LD 

LD 



AF 

BC 

DE 

HL 

IX 

IY 

0A7FH 

HL 

IX 

C» <IX+2) 

B» ( IX+3) 

IY 5 

IY»3P 

L» UX+0) 

H? < IX + 1 ) 

(IX+4)iL 

(IX+5),H 

Li < IX+4) 

H 5 <IX+5> 

HL 

(IX+4) ,L 

<IX+5)»H 

HL 

SP>HL 

L? (IX+8) 

Hj (IX+9) 

EsL 

D»H 

A»7 

HLsHL 

A 

NZ » MET020 

A 

HLtDE 

A 

HLiDE 

A 

HL ? DE 

<IX+8),L 

(IX+9)iH 

HL 

DE 

A 

HLi DE 

HL.DE 

<IX+6)?L 

<IX+7)»H 



;SAVE REGISTERS 



;**#GET PB LOC'N*** 
; TRANSFER TO IX 



5DISABLE INT 
;END ADDRESS 



FOR STACK 
TO BC 



;ZERO IY FOR ADD SP 
; TRANSFER CURNT SP TO 
;GET START 



IY 



UNITIALIZE CURRENT 

; CURRENT ADDRESS TO HL 

5BUMP CURRENT ADDRESS 
5 CURNT FOR FAILING LOC 

;1ST STACK ACTION AT -1 
;SET SP FOR TEST 
;GET SEED 

SPUT IN HL AND DE 

SLOOP COUNT FOR SHIFT 

!SEED#2 

5 DECREMENT LOOP COUNT 

5 7 TIMES=TIMES 128 

5TIMES 127 



;TIMES 126 



5TIMES 
; STORE 



125 

NEW 



SEED 



; ACTUAL TEST HERE 
I PUSH AND RETRIEVE 
; CLEAR CARRY 
;TEST FOR EQUAL 
; RESTORE "IS" 
5SAVE IN "IS" 
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7F5F 


2012 


00730 


JR 


NZ,MET030 


7F61 


DD6E04 


00740 


LD 


L» CIX+4) 


7F64 


DD6605 


00750 


LD 


H» (IX+5) 


7F67 


B7 


00760 


OR 


A 


7F68 


EDA 2 


00770 


SBC 


HLjBC 


7F6A 


20BB 


00780 


JR 


NZ,MET010 


7F6C 


AF 


00790 


XOR 


A 


7F6D 


DD7704 


00800 


LD 


<IX+4>,A 


7F70 


DD7705 


00810 


LD 


(IX+5),A 


7F73 


FDF9 


00820 MET030 


LD 


SP, IY 


7F75 


FDE1 


00830 


POP 


IY 


7F77 


DDE! 


00840 


POP 


IX 


7F79 


El 


00850 


POP 


HL 


7F7A 


Dl 


00860 


POP 


DE 


7F7B 


CI 


00870 


POP 


BC 


7F7C 


Fl 


00880 


POP 


AF 


7F7D 


C9 


00890 


RET 




0000 




00900 


END 




0000E 


) TOTAL 


ERRORS 







5 GO IF NOT EGUAL 
!GET CURRENT LOCATION 

; CLEAR CARRY 

5TEST FOR END 

SLOOP FOR NXT TST OF 2 

5TEST SUCCESSFUL HERE 

5SET SUCCESSFUL FLAG 

5 RESTORE SP 

! RESTORE REGISTERS 



! RETURN TO CALLING PROG 



METEST DECIMAL VALUES 



245, 197, 213, 229s 221 , : 
10» 229 j 221 » 225 , 243 » 2: 
3) 253, 33, 0, 0, 253» 57, 
221s 102? 1) 221, 117, 4, 



.'29, 253. 229 » 205? 
''.1, 78, 2, 221, 70, 

221, 110, 0, 
221, 116, 5, 221, 



110, 4, 221, 102, 5, 35, 221, 117, 4, 221 , 
116, 5, 35, 249, 221, 110, 8, 221, 102, 9, 
93, 84, 62, 7, 41, 61, 32, 252, 183, 237, 



82, 183, 237 i 
221 » 116, 9, 
6, 221, 
102, 5, 
4, 221, 



82, 
229, 
116, 
183, 
119, 



117 
221 
119 
225, 225, 209, 193, 241, 201 



183, 237, 82, 221, 117, 8, 

209, 183, 237, 82, 25, 221: 

7, 32, 18, 221, 110, 4, 

237, 66, 32, 187, 175, 221 ! 

5, 253, 249, 253, 225, 221, 
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CHKSUM= 51 



MLEBYE: FAST 8 BY 8 MULTIPLY 



System Configuration 

Model i, Model III, Model II Stand Alone. 

Description 

MLEBYE multiplies an 8-bit binary number by an 8-bit binary number to give a 
16-bit product. The multiply is a "fast" multiply that operates twice as fast as 
conventional multiplies. The multiply is an "unsigned" multiply, where both 
operands are treated as 8-bit absolute numbers. 



Input/Output Parameters 

On input, the H register contains the 8-bit multiplier and the L register contains 
the 8-bit multiplicand. On output, HL contains the 16-bit product. 
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INPUT 



OUTPUT 



H 


L 


MULTIPLIER 
0-255 


MULTIPLICAND 
0-255 



H 



L 



PRODUCT 0-65,025 



Algorithm 

The MLEBYE subroutine performs the multiply by a bit-by-bit multiply in eight 
steps. To reduce overhead, "straight-line" coding rather than a loop structure is 
used. 

The multiplicand is put into BC and the multiplier into H. The L register is 
cleared. The HL register is used to shift out multiplier bits from the left end into 
the carry and to hold the partial product in the L register end. The HL register is 
shifted left eight times. For each shift, a multipler bit from H is tested. If it is a 
one bit, the multiplicand in C is added to HL by an "ADD HL, BC"; if it is a 
zero, nothing is done. The next shift moves the partial product in L toward the 
left. At the end of the eight steps, the entire multiplier has been shifted out of H, 
and HL holds the 16-bit product. 



Sample Calling Sequence 

NAME OF SUBROUTINE? MLEBYE 

HL VALUE? 65535 MULTIPLIER = 255, MULTIPLICAND = 255 

PARAMETER BLOCK LOCATION? 

MEMORY BLOCK 1 LOCATION? 

MOVE SUBROUTINE TO? 55000 

SUBROUTINE EXECUTED AT 55000 

INPUT: OUTPUT: 

HL= 65535 HL= 65025 RESULT = 255 x 255 

NAME OF SUBROUTINE? 

Notes 

1. Maximum multiplier is 255. Maximum multiplicand is 255. The maximum 
product will be 65,535. 



Program Listing 



7F00 



7F00 C5 
7F01 CD7FBA 
7F04 4D 
7F05 0600 
7F07 68 
7F08 29 
7F09 300! 
7F0B 09 
7F0C 29 



00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 



ORG 7F00H 5 0520 

;************#******************************************* 
5* FAST 8 BIT BY 8 BIT MULTIPLY TO YIELD 16 BIT PRODUCT.* 
5* INPUT: HL=MULTIPLIER IN H» MULTIPLICAND IN L * 
!* 0UTPUT:HL=16-BIT PRODUCT. 0-65535 * 

f ****#****#*********#**#*** ************************* ***** 



MLEBYE 



MLE010 



PUSH 

CALL 

LD 

LD 

LD 

ADD 

JR 

ADD 

ADD 



BC 

0A7FH 

C?L 

Bj0 

L»B 

HL?HL 

NCMLE010 

HL.BC 

HLsHL 



5 SAVE REGISTER 

5***GET HL*** 

I MULTIPLICAND TO C 

5NOW IN BC 

50 TO L 

5SHIFT MULTIPLIER, PRODUCT 

5 GO IF MULTIPLIER BIT=0 

5 ADD MULTIPLICAND 
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7FBD 


3001 


00260 




JR 


NC.MLEB20 


7F0F 


89 


00270 




ADD 


HLsBC 


7FI0 


29 


00280 


MLEB20 


ADD 


HLjHL 


7F1I 


3001 


00290 




JR 


NC.MLE03B 


7F13 


09 


00300 




ADD 


HLtBC 


7F14 


29 


00310 


MLE030 


ADD 


HLjHL 


7F15 


3001 


00320 




JR 


NCiMLE040 


7F17 


09 


00330 




ADD 


HL»BC 


7FI8 


29 


00340 


MLE040 


ADD 


HL>HL 


7F19 


3001 


00350 




JR 


SMC.MLE050 


7F1B 


09 


00360 




ADD 


HLsBC 


7F1C 


29 


00370 


MLE050 


ADD 


HLsHL 


7F1D 


3001 


00380 




JR 


NC>MLE060 


7FIF 


09 


00390 




ADD 


HL.BC 


7F20 


29 


00400 


MLE060 


ADD 


HL,HL 


7F21 


3001 


00410 




JR 


NC?MLE070 


7F23 


09 


00420 




ADD 


HL.BC 


7F24 


29 


00430 


MLE070 


ADD 


HLfHL 


7F25 


3001 


00440 




JR 


NCsMLE080 


7F27 


09 


00450 




ADD 


HL»BC 


7F28 


CI 


00460 


HLE080 


POP 


BC 


7F29 


C39A0A 


00470 




JP 


0A9AH 


7F2C 


C9 


00480 




RET 




0000 




00490 




END 




00000 TOTAL 


ERRORS 









; RESTORE REGISTER 
;#**RETURN ARGUMENT*** 

5NON-BASIC RETURN 



MLEBYE DEC I HAL VALUES 



197, 



>05 5 VZI, 105 77, 6, 0, 104? 41> 48, 



1, 9) 41) 48, Is 9, 41) 48, 1, 

41. 48, 1, 9, 41» 48- 1, 9, 41< 

1, 9, 4i, 48* 1» 9) 41, 48s 1, 
193? 195, 154 ; 10, 201 



48) 



CHKSUM= 223 
MLSBYS: SIXTEEN BY SIXTEEN MULTIPLY 



System Configuration 

Mode! I, Model III, Model II Stand Alone. 

Description 

MLSBYS multiplies a 16-bit binary number by a 16-bit binary number. The 
multiply is an "unsigned" multiply, where both numbers are considered to be 
absolute numbers without sign. A 32-bit product is returned. 



Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
two bytes of the parameter block contain the 16-bit multiplicand. The next two 
bytes of the parameter block contain a 16-bit multiplier. Both are in Z-80 16-bit 
format. The next four bytes of the parameter block are reserved for the 32-bit 
quotient. 
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On output, PARAM+3 to PARAM+6 hold the 32-bit product, arranged in next 
ms, ms, Is, next Is format. The contents of the remainder of the parameter 
block remain unchanged. 







INPUT 
H L 








OUTPUT 

H L 
i 






POINTER TO PARAM+0 




UNCHANGED 

i 




: _^» 






I 












PARAM+0 

+ 1 


1 6-BIT 
MULTIPLICAND 


PARAM+0 
+ 1 


- UNCHANGED - 




+2 
+3 


1 6-BIT 
MULTIPLIER 


+2 

: =4> < 


- UNCHANGED - 




+4 
+5 
+6 
+7 


RESERVED 

FOR 

RESULT 


+4 
+5 

+6 
+7 


32-BIT 
PRODUCT 





Algorithm 

The MLSBYS subroutine performs the multiply by a "bit-by-bit" multiply in 16 
iterations. The multiplier bits are tested from left to right. For each one bit in the 
multiplier, the multiplicand is added to a "partial product." The partial product 
is shifted left with each iteration. At the end of 16 iterations, all multiplier bits 
have been tested, and the partial product contains the true 32-bit product of the 
multiply. 

The multiplicand is first put into BC, and the multiplier in DE. The A register is 
initialized with the iteration count of 16. The HL register is cleared toO. The DE 
and HL registers will contain the partial product and will be shifted toward the 
left. 

The code atMLS010 is the 16-iteration loop of MLSBYS. For each iteration, DE, 
HL is shifted one bit left. As it is shifted, the multiplier bit from DE goes into the 
carry. If the carry is set (multiplier bit is a one), the multiplicand in BC is added 
to the partial product. If the carry is reset (multiplier bit is a zero), no add is 
done. At the end of 16 iterations DE, HL contains the 32-bit product. 

Sample Calling Sequence 



NAME OF SUBROUTINE? MLSBYS 
HL VALUE? 3SSS8 

PARAMETER BLOCK LOCATION? 38888 
PARAMETER BLOCK VALUES? 
+ 02 65535 MULTIPLICAND 
2 2 65535 
0~ 

-INITIALIZE RESULT FOR EXAMPLE 



2 
2 



MULTIPLIER 



+ 

+ 

+ 620 

+ 800 

MEMORY BLOCK 1 LOCATION? 

MOVE SUBROUTINE TO? 40000 

SUBROUTINE EXECUTED AT 40000 

INPUT." OUTPUT: 

HL= 38888 HL= 38888 
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PARAM+ 


•8 


255 


PARAM+ 





255 


PARAM+ 


i 


255 


PARAM+ 


i 


255 


PARAM-f- 


•"> 


255 


PARAM+ 


2 


255 


PARAM+ 


3 


255 


PARAM+ 


3 


255 


PARAH+ 


4 





PARAM+ 


4 


254 


PARAM+ 


5 





PARAM+ 


5 


255 


PARAM+ 


6 





PARAM+ 


6 


1 


PARAM+ 


7 





PARAM+ 


7 






-UNCHANGED 



254,255, 1,0 = 255,254, 
1 = 4, 294, 836, 225 



NAME OF SUBROUTINE? 



Notes 



1. Maximum multiplier is 65,535. Maximum multiplicand is 65,535. 

2. Note that the product is in 1,0,3,2 order. 

Program Listing 



7F0B 



7F00 

7F0i 

7F02 

7F03 

7F04 

7F06 

7F09 

7F0A 

7F0C 

7F0F 

7F12 

7F15 

7F18 

7F1A 

7F1D 

7F1E 

7F1F 

7F21 

7F22 

7F24 

7F25 

7F27 

7F28 

7F29 

7F2B 

7F2E 

7F31 

7F34 

7F37 

7F39 

7F3A 

7F3B 

7F3C 

7F3D 

0000 

00000 



F5 

C5 

D5 

E5 

DDE5 

CD7F0A 

E5 

DDE1 

DD4E00 

DD4601 

DD5E02 

DD5603 

3E10 

210000 

29 

EB 

ED6A 

EB 

3004 

09 

3001 

13 

3D 

20F2 

DD7304 

DD7205 

DD7506 

DD7407 

DDE1 

El 

Dl 

CI 

Fl 

C9 

TOTAL 



00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
ERRORS 



ORG 7F00H 5 0522 

; ##########*###*######*############*#####*###«■##########* 

5* SIXTEEN BY SIXTEEN MULTIPLY TO YIELD 32-BIT PRODUCT. * 

!* INPUT: HL=> PARAMETER BLOCK # 

?* PARAM+0,+l=MULTIPLICAND * 

!* PARAM+2?+3=MULTIPLIER # 

5* PARAM+4 5 +5»+6?+7=RESERVED FOR PRODUCT # 

5* 0UTPUT:PARA+4»+5i+6»+7 HOLD 32-BIT PRODUCT * 



MLSBYS 



MLS010 



MLS020 



PUSH 

PUSH 

PUSH 

PUSH 

PUSH 

CALL 

PUSH 

POP 

LD 

LD 

LD 

LD 

LD 

LD 

ADD 

EX 

ADC 

EX 

JR 

ADD 

JR 

INC 

DEC 

JR 

LD 

LD 

LD 

LD 

POP 

POP 

POP 

POP 

POP 

RET 

END 



AF 
BC 
DE 
HL 
IX 

0A7FH 
HL 
IX 

C, (IX+0) 
B, (IX+1) 
E» <IX+2) 
Di <IX+3) 
A» 16 
HL*0 
HLsHL 
DE,HL 
HL,HL 
DEsHL 
NC.MLS020 
HLiBC 
NC.MLS020 
DE 
A 

NZ.MLS010 
<IX+4>»E 
<IX+5)»D 
UX+6),L 
UX+7)»H 
IX 
HI- 
DE 
BC 
AF 



5SAVE REGISTERS 



;###GET PB LQC'N#*# 
! TRANSFER TO IX 

5 PUT MULTIPLICAND IN BC 

SPUT MULTIPLIER IN DE 

! ITERATION COUNT 
;ZER0 PARTIAL PRODUCT 

5SHIFT PARTIAL PROD LEFT 
?GET MS 16 BITS 
5 SHI FT PART PROD PLUS C 
5 RESTORE UPPER 16 BITS 
5GO IF MULTIPLIER BIT=0 
;ADD IN MULTPLICAND 
5GO IF NO CARRY 
5BUMP UPPER 16 BITS 
5 DECREMENT ITERATION CNT 
I LOOP FOR 16 ITERATIONS 
; STORE PRODUCT 



5 RESTORE REGISTERS 



; RETURN TO CALLING PROG 
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I 
I 
[ 

I 
I 
I 
I 
I 



MLSBYS DECIMAL VALUES 



245? i97> 213? 229 

221? 225 ? 221 » 78s 

2? 221 ? 86? 3 ^ 6k! ? 

235s 237 ? 106? 235 



221 ? 229 i 
0? 221? 70i 
16? 33? 0? 
1 48? 4s 9? 



61s 3k's 24k.'i 
1 1 7 5 6 ? 22 1 ; 
241 ? 201 



221 ? 
116? 



115? 4? 
7 5 22 1 ? 



221 
225 



205? 127? 10? 1 
1? 221? 94? 

0? 41 ? 

4B? 1? 19? 
114? 5? 221. 
225? 209? 193? 



CHKSUM= 



201 



MOVEBL: MOVE BLOCK 



System Configuration 

Model I, Model HI, Model II Stand Alone. 

Description 

MOVBLK moves a block of memory to another block of memory. The blocks 
may be overlapping; a check is made for the proper direction of the move to 
prevent replication of data if the block move is made in the wrong direction. 
Any number of bytes up to the limit of memory may be moved. 



Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
two bytes of the parameter block contain the address of the source block in 
standard Z-80 address format, least significant byte followed by most significant 
byte. The next two bytes are the address of the destination block in Z-80 ad- 
dress format. The next two bytes of the parameter block contain the number of 
bytes to move in Z-80 format. 

On output, the parameter block contents remain unchanged. The source block 
has been moved to the destination block area. 







INPUT 

H L 








OUTPUT 

H L 

1 „ , 






POINTER TO PARAM+0 


N 


UNCHANGED 

1 














1 












PARAM+0 

+ 1 


SOURCE 
ADDRESS 

(MEM 1+0) 


PARAM+0 

+ 1 


- UNCHANGED - 




+2 


DESTINATION 
ADDRESS 
(MEM2+0) 




V 


+2 

+3 


- UNCHANGED - 




+3 








/ 




+4 

+5 


#0F 

BYTES 

TO MOVE 


+4 
+5 


- UNCHANGED - 
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MEM2+0 

+ 1 
+2 
+3 
+4 
+5 
+6 



MEM 1+0 

+ 1 
+2 
+3 
+4 
+5 
+6 



:> 



-- UNCHANGED -- 



AREA 

FOR 

DESTINATION 

BYTES 



$ 



| 



MEM2+0 

+ 1 




+2 
> +3 
+4 


SOURCE 

BYTES 


+5 
+6 







Algorithm 

The main concern in MOVEBL is to test for either a "beginning to end" move 
or an "end to beginning" move. The wrong choice will replicate data in the 
block when the source and destination areas are overlapping. A test for overlap 
is not done, since it is simpler to choose either an LDIR or LDDR based on the 
relationship of the starting addresses. 

The source address is put into HL, the destination address into DE, and the 
number of bytes into BC. A comparison is then done by subtracting the destina- 
tion address from the source address. If the result is positive, the source address 
is less than the destination and an LDIR will perform the move with no conflict. 
If the result is negative, an LDDR must be done. In this case the source and 
destination addresses are recomputed so that they point to the end of the blocks 
for the LDDR. 

Sample Calling Sequence 



NAME OF SUBROUTINE? MOVEBL 

HL VALUE? 45000 

PARAMETER BLOCK LOCATION? 45000 

PARAMETER BLOCK VALUES? 

+ 02 50000 SOURCE ADDRESS 

+ 2 2 50001 DESTINATION ADDRESS 

+ 425 5 BYTES 

+ 600 

MEMORY BLOCK i LOCATION? 50000 

MEMORY BLOCK I VALUES? 




1 

5f 
3 
4 
5 
6 
7 



i 
1 
1 
i 
I 

i 
i 






i 
2 
3 
4 
5 
6 




INITIALIZE SOURCE FOR EXAMPLE 
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I 
I 



MEMORY BLOCK 2 LOCATION? 
MOVE SUBROUTINE TO? 37777 
SUBROUTINE EXECUTED AT 37777 



INPUT: 






OUTPUT' 








HL= 45000 




HL= 45000 




PARAM+ 





80 


PARAM+ 


59 


80 




PARAM+ 


i 


195 


PARAM+ 


1 


195 




PARAM+ 
PARAM+ 


2 
3 


81 

195 


PARAM+ 
PARAM+ 


2 
3 


81 
195 


-UNCHANGED 


PARAM+ 


4 


5 


PARAM+ 


4 


5 




PARAM+ 


5 





PARAM+ 


5 


_ 




MEMB1+ 








MEMB1+ 










MEMB1+ 


1 


1 


MEMB 1 + 


1 







MEMB1+ 


2 


2 


MEMB1+ 


2 


1 




MEMB1+ 


3 


3 


MEMB1+ 


3 


2 


-DESTINATION 


MEMB1+ 


4 


4 


MEMB1+ 


4 


3 




MEMB1+ 


5 


5 


MEMB1+ 


5 


4 




MEMB 1 + 


6 


6 


MEMB1+ 


6 


6 





NAME OF SUBROUTINE? 

Notes 

1. The number of bytes moved may be 1 to 65,536 (0 is 65,536). 

Program Listing 



7F00 



7F00 
7F01 
7F02 
7F03 
7F05 
7F08 
7F09 
7F0B 
7F0E 
7F11 
7F14 
7F17 
7F1A 
7F1D 
7F1E 
7FIF 
7F21 
7F23 
7F24 
7F26 
7F28 
7F2A 
7F2B 
7F2C 
7F2D 
7F2E 



C5 

D5 

E5 

DDES 

CD7F0A 

E5 

DDE1 

DD6E00 

DD6601 

DD5E02 

DD5603 

DD4E04 

DD4605 

E5 

B7 

ED52 

CB7C 

El 

2004 

EDB0 

1808 

0B 

09 

EB 

09 

EB 



00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 



0R6 7F00H 5 0612 

!* MOVE BLOCK. MOVES BLOCK OF DATA FROM SOURCE AREA TO *• 

5* DESTINATION AREA. AREAS MAY BE OVERLAPPING. * 

5* INPUT: HL=> PARAMETER BLOCK * 

;* PARAM+0?+l=SOURCE ADDRESS * 

;* PARAM+2»+3=DESTINATI0N ADDRESS * 

;* PARAM+4,+5=# OF BYTES TO MOVE * 

5* OUTPUT .'BLOCK MOVED * 
;##*#####«*####*##*#######**#*#####*###*####*####*######» 
? 
MOVEBL 



MOV020 



PUSH 

PUSH 

PUSH 

PUSH 

CALL 

PUSH 

POP 

LD 

LD 

LD 

LD 

LD 

LD 

PUSH 

OR 

SBC 

BIT 

POP 

JR 

LDIR 

JR 

DEC 

ADD 

EX 

ADD 

EX 



BC 

DE 

HL 

IX 

0A7FH 

HL 

IX 

L» (IX+0) 

H 5 (IX + 1) 

E? <IX+2> 

D* (IX+3) 

C» (IX+4) 

B* (IX+5) 

HL 

A 

HL?DE 

7sH 

HL 

NZ 5 MOV020 

MOV030 

BC 

HL*BC 

DEsHL 

HLsBC 

DEiHL 



5SAVE REGISTERS 



;***6ET PB LOC'N#*# 
; TRANSFER TO IX 

fPUT SOURCE ADDRESS IN HL 

I PUT DESTINATION ADD IN DE 

fPUT BYTE COUNT IN BC 

I SAVE SOURCE ADDRESS 

; CLEAR CARRY 

I COMPARE SOURCE TO DEST ADDR 

!TEST SIGN 

; RESTORE SOURCE ADDRESS 

5 GO IF LDDR REWIRED 

SMOVE BLOCK 
;GO TO CLEANUP 
;# OF BYTES- 1 
5 POINT TO NEW SOURCE 
5 GET DESTINATION 
5 POINT TO NEW DESTINATION 
; RESTORE 
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7F2F 03 00470 INC BC 

7F30 EDB8 00480 LDDR 

7F32 DDE1 00490 MOV030 POP IX 

7F34 EI 00500 POP HL 

7F35 01 00510 POP DE 

7F36 CI 00520 POP BC 

7F37 C9 00530 RET 

0000 00540 END 

00000 TOTAL ERRORS 



;# BYTES 

5 MOVE BLOCK 

5 RESTORE REGISTERS 



!RETURN TO CALLING PROGRAM 



MOVEBL DECIMAL VALUES 



197, 213, 229, 221, 229, 205, 127, 10, 229, 221, 

225, 221, 110, 0, 221, 102, 1, 221, 94, 2, 

221, 86, 3, 221, 78, 4, 221, 70, 5, 229, 

183, 237, 82, 203, 124, 225, 32, 4, 237, 176, 

24, 8, 11, 9, 235? 9, 235, 3, 237, 184, 

221, 225, 225, 209, 193, 201 



CHKSUM= 12 

MPADDN: MULTIPLE-PRECISION ADD 



System Configuration 

Model I, Model III, Model II Stand Alone. 

Description 

MPADDN adds a "source" string of bytes to a "destination" string of bytes and 
puts the result of the add into the destination string. Each of the two strings is a 
multiple-precision binary number. Each of the two strings is assumed to be the 
same length. The length of each string may be any number from 1 through 255 or 
0, which is 256 bytes. 



Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
two bytes of the parameter block contain the address of the destination string in 
standard Z-80 address format, least significant byte followed by most significant 
byte. The next two bytes of the parameter block contain the address of the 
source string in the same format. The next byte of the parameter block contains 
the number of bytes in the two operands. 

On output, the parameter block and source string are unchanged. The destina- 
tion string contains the result of the multiple-precision add. 



INPUT 



+ 



OUTPUT 
H I 



POINTER TO PARAM+0 



4> 



UNCHANGED 
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PARAM+0 

+ 1 


ADDRESS 
OF MEM 1+0 " 


+2 
+3 


ADDRESS 

OF MEM2+0 "" 


+4 


)F BYTES 



PARAM+0 

+ 1 
+2 
+3 
+4 



-- UNCHANGED -- 



$ 



-- UNCHANGED -- 



UNCHANGED 



MEM 1+0 

+ 1 
+2 

+3 
+4 
+5 
+6 



OPERAND 

ONE 

BYTES 



MEM 1+0 
+ 1 

+2 
+3 
+4 
+5 
+6 



P 



RESULT 

OF 

ADD 

BYTES 



MEM2+0 




MEM2+0 




+ 1 




+ 1 






OPERAND _. 






+2 


TWO 


+2 






BYTES 


s 


- UNCHANGED - 


+3 






> +3 










/ 




+4 






+4 














+5 






+5 












+6 






+6 





Algorithm 

The MPADDN subroutine performs one add for each byte in the operands. The 
destination string address and source string address are first picked up from 
the parameter block and put into DE and HL, respectively. The number of bytes 
in the add is then picked up and put into the BC register pair. This number 
minus one is then added to the source and destination pointers so that they 
point to the least significant bytes of the source and destination strings. The 
number of bytes is then put into the B register for loop control. 

The next destination byte is then picked up from the destination string (DE 
register pointer). An ADC is made of the two source string digits (HL register 
pointer). The result is then stored in the destination string. 

The source and destination string pointers are then decremented by one to 
point to the next most significant two bytes of each operand. The B register 
count is then decremented by a DJNZ, and a loop back to MPA010 is made for 
the next add. 

The carry is cleared before the first add, but successive adds add in the carry 
from the preceding operation. If the destination operand was 00H, F5H, 6EH, 
11 H and the source operand was 00H, FFH, 77H, 33H, then the number of 
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operand bytes must be 4. The result in the destination operand would be 01 H, 
F4H, E5H, 44H. Note that the result may be one bit larger than the original 
number of bits in the operands. 

Sample Calling Sequence 



NAME OF SUBROUTINE? MPADDN 

HL VALUE? 40000 

PARAMETER BLOCK LOCATION? 40000 

PARAMETER BLOCK VALUES? 

+ 02 42000 POINTS TO DESTINATION 

+ 2 2 44000 POINTS TO SOURCE 

+ 425 5 BYTES 

+ 600 

MEMORY BLOCK 1 LOCATION? 42000 

MEMORY BLOCK I VALUES? 

+ 1 255 



+ 1 1 


255 










+ 2 1 


2 


55 


- DESTINATION = 


FFFFFFFEFFH 


+ 3 1 




54 








+ 4 1 


255 








+ 50 













MEMORY 


BLOCK 2 


LOCATION? 


44000 


MEMORY 


BLOCK 2 


VALUES? 






+ 1 













+ i 1 













+ 2 i 


1 




-SOURCE = 0000010001H 


+ 3 i 













+ 4 1 


1 










+ 50 













MOVE BUBRc 


DUTIN 


E TO? 38000 




SUBROUTINE EXECUTED AT 


38000 


INPUT: 






OUTPUT 






HL= 40000 




HL= 40000 




PARAM+ 





16 


PARAM+ 





16 




PARAM+ 


1 


164 


PARAM+ 


1 


164 




PARAM+ 


2 


224 


PARAM+ 


2 


224 




PARAM+ 


3 


171 


PARAM+ 


3 


171 


-UNCHANGED 


PARAM+ 


4 


5 


PARAM+ 


4 


5 




PARAM+ 


5 





PARAM+ 


5 







MEMB.I + 





255 


MEMB1+ 










MEMB1+ 


1 


255 


MEMB1+ 


1 







MEMB1+ 


,i£ 


255 


MEMB1+ 


jC 





-RESULT = 00(2 


MEMB1+ 


3 


254 


MEMB1+ 


3 


255 




MEMB 1 + 


4 


255 


MEMB1+ 


4 







MEMB2+ 








MEMB2+ 










MEMB2+ 


1 





MEMB2+ 


1 







MEMB2+ 


2 


1 


MEMB2+ 


*'- 


1 


-UNCHANGED 


MEMB2+ 


3 





MEMB2+ 


3 







MEMB2+ 


4 


1 


MEMB2+ 


4 


1 





3FF00H 



NAME OF SUBROUTINE? 



Notes 



1. The destination string is fixed length. Leading zero bytes must precede the 
operands to handle the result, which may be one bit larger than either of the 
operands. 

2. This may be either a "signed" or "unsigned" add. If a two's complement 
number is used, then the sign must be "sign extended" to the more significant 
bits of the operands. 
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Program Listing 



7F00 



7FB0 F5 
7F01 C5 
7F02 D5 
7F03 E5 
7F04 DDE5 
7F06 CD7F0A 
7F09 E5 
7F0A DDE1 
7S-0C DD5E00 
7F0F DD5601 
7F12 DD6E02 
7F15 DD6603 
7F1S DD4E04 
7F1B 0600 
7F1D 0B 
7F1E 09 
7F1F EB 
7F20 09 
7F21 EB 
7F22 41 
7F23 04 
7F24 B7 
7F25 1A 
7F26 BE 
7F27 12 
7F28 2B 
7F29 IB 
7F2A 10F9 
7F2C DDE I 
7F2E El 
7F2F Dl 
7F30 CI 
71-31 Fl 
7F32 C9 
0000 
00000 TOTAL 



00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
001B0 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00300 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 
ERRORS 



ORG 7F00H 10522 

" M. M. Jit, .lit. M. Jot M. -M. M. At. M. Jt. M. Jrl. M„ .M. ,M. .Int. .K„ 

!* MULTIPLE-PRECISION ADD. ADDS TWO MULTIPLE-PRECISION * 

?* OPERANDS? ANY LENGTH. * 

?* INPUT: HL=> PARAMETER BLOCK * 

I* PARAM+0»+i=ADDRESS OF OPERAND 1 * 

!* PARAM+2,+3=ADDRESS OF OPERAND 2 # 

?* PARAM+4=# OF BYTES 0-256 * 

5* OUTPUT: OPERAND 1 LOCATION HOLDS RESULT # 
!##*##########-»(-*#*############*####*#########-»#*#####«-»## 



MPADDN 



MPA010 



PUSH 

PUSH 

PUSH 

PUSH 

PUSH 

CALL 

PUSH 

POP 

LD 

LD 

LD 

LD 

LD 

LD 

DEC 

ADD 

EX 

ADD 

EX 

LD 

INC 

OR 

LD 

ADC 

LD 

DEC 

DEC 

DJNZ 

POP 

POP 

POP 

POP 

POP 

RET 

END 



AF 

BC 

DE 

HL 

IX 

0A7FH 

HL 

IX 

E» CIX+0) 

D? (IX + 1) 

L? (IX+2) 

Hi (IX+3) 

C? (IX+4) 

B»0 

BC 

HLjBC 

DEsHL 

HL^BC 

DEfHL 

B.C 

B 

A 

A, (DE) 

As (HL) 

(DE) j A 

HL 

DE 

MPA010 

IX 

HL 

DE 

BC 

AF 



5 SAVE REGISTERS 



I#*#GET PB LOC'N*** 
I TRANSFER TO IX 



;GET 
5 GET 



OP 


1 


OP 


2 


# OF 


IN 


BC 



LOC'N 

LOC'N 



BYTES 



5 GET 
SNOW 

;#-l 

? POINT TO LAST 0P2 
5SWAP DE AND HL 
5 POINT TO LAST OP1 
5 SWAP BACK 
5#-l BACK TO B 
; ORIGINAL NUMBER 
5 CLEAR CARRY FOR 
;6ET OPERAND 1 
5ADD OPERAND 2 
I STORE RESULT 
; POINT TO NEXT 
! POINT TO NEXT 
SLOOP FOR N BYTES 
I RESTORE REGISTERS 



FIRST ADD 
BYTE 



OP2 

OP1 



5 RETURN TO CALLING PROG 



MPADDN DECIMAL VALUES 



245. 197s 213» 229? 221 . 229. 205 > 127, 10, 229s 

221 » 225s 221 » 94. 0, 221 > 86> Is 221 > 1105 

2s 221? 102? 3s 221 » 7Si 4s 6? 0» lis 

9. 235. 9s 235? 65, 4» 183> 26? 142» IB? 

43 , 27? 16? 249 i 221? 225? 225? 209 . 193> 241? 

201 



CHKSUM= 73 
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MPSUBT: MULTIPLE-PRECISION SUBTRACT 



System Configuration 

Model I, Model III, Model II Stand Alone. 

Description 

MPSUBT subtracts a "source" string of bytes from a "destination" string of 
bytes and puts the result of the subtract into the destination string. Each of the 
two strings is a multiple-precision binary number. Each of the two strings is 
assumed to be the same length. The length of each string may be any number 
from 1 through 255 or 0, which is 256 bytes. 

Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
two bytes of the parameter block contain the address of the destination string in 
standard Z-80 address format, least significant byte followed by most significant 
byte. The next two bytes of the parameter block contain the address of the 
source string in the same format. The next byte of the parameter block contains 
the number of bytes in the two operands. 

On output, the parameter block and source string are unchanged. The destina- 
tion string contains the result of the multiple-precision subtract. 



I 

5 

I 
I 
I 
I 
I 
I 
I 







INPUT 








OUTPUT 






H L 






H L 




POINTER TO PARAM+0 

I L+J 1 


=^> 


UNCHANGED 

I 1+ 1 


PARAM+0 

+ 1 


ADDRESS 

OF MEM 1+0 


PARAM+0 

+ 1 


- UNCHANGED - 




+2 

+3 


ADDRESS 
OF MEM2+0 


+2 

— S + 3 " 

- — y 


- UNCHANGED - 




+4 


# BYTES 


+4 


UNCHANGED 




MEM 1+0 




MEM 1+0 
















+ 1 




+ 1 






+2 


OPERAND 

ONE 

BYTES 




s 


+2 
+3 


RESULT 

OF 

SUB 

BYTES 




+3 






? 




+4 






+4 








+5 






+5 










+6 










+6 
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I 
I 
I 
I 
I 



MEM2+0 




MEM2+0 




+ 1 




+ 1 




+2 


OPERAND 
TWO 


+2 






BYTES 


s 


" UNCHANGED " 


+3 






> +3 




/ 


+4 






+4 




+5 






+5 




+6 




+6 


- 


Algorithm 









The MPSUBT subroutine performs one subtract for each byte in the operands. 
The destination string address and source string address are first picked up 
from the parameter block and put into DE and HL, respectively. The number of 
bytes in the subtract is then picked up and put into the BC register pair. This 
number minus one is then added to the source and destination pointers so that 
they point to the least significant bytes of the source and destination strings. 
The number of bytes is then put into the B register for loop control. 

The next destination byte is then picked up from the destination string (DE 
register pointer). An SBC is made of the two source string digits (HL register 
pointer). The result is then stored in the destination string. 

The source and destination string pointers are then decremented by one to 
point to the next most significant two bytes of each operand. The B register 
count is then decremented by a DJNZ, and a loop back to MPS010 is made for 
the next subtract. 

The carry is cleared before the first subtract, but successive subtracts subtract 
the carry from the preceding operation. If the destination operand was OOH, 
F5H, 6EH, 11 H and the source operand was OOH, FFH, 77H, 33H, then the 
number of operand bytes must be 4. The result in the destination operand 
would be FFH, F5H, E6H, DEH. The result may be one bit larger than the 
original number of bits in the operands or may be a negative number. 

Sample Calling Sequence 



NmME of 


" SUBROUTINE? MPSUBT 


HL VALUE? 40000 


PARAMETER BLOCK LOCATION? 40000 


PARAMETER BLOCK VALUES? 


+ 2 


42000 


h 2 2 


44000 


+ 4 2 


5 # OF BYTES 


+ 60 





MEMORY 


BLOCK 1 LOCATION? 42000 


MEMORY 


BLOCK 1 VALUES? 


+ 1 


0" 




+ i l 







+ 2 1 





- DESTINATION = 00000000H 


+ 3 1 







+ 4 1 







+ 5 
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■SOURCE = 00000001 H 



MEMORY BLOCK 2 LOCATION? 44000 

MEMORY BLOCK 2 VALUES? 

+ 010 

+ 1 .1 

+ 210 

+ 3 1 

+ 411 

+ 500 

MOVE SUBROUTINE TO? 38000 

SUBROUTINE EXECUTED AT 38000 

PUT: OUTPUT : 

40000 HL= 40000 

PARAM+ 



ftt! 



PARAM+ 
PARAM+ 1 
PARAM+ 2 
PARAM+ 3 
PARAM+ 4 
PARAM+ 5 
MEMB1+ 
MEMB1+ 1 
MEMB1+ 
MEMB1+ 
MEMB1+ 
MEMB2+ 
MEMB2+ 
MEMB2+ 
MEMB2+ 
MEMB2+ 



2 
3 
4 

1 

3 
4 



16 

164 

224 

171 

5 





















1 



PARAM+ 1 
PARAM+ 2 
PARAM+ 3 
PARAM+ 4 
PARAM+ 5 
MEMB1+ 
MEMB1+ 1 
MEMB1+ 2 
MEMB1+ 3 
MEMB1+ 4 
MEMB2+ 
MEMB2+ 1 
MEMB2+ 2 
MEMB2+ 
MEMB2+ 



3 
4 



16 

164 

224 

171 

5 



255 

255 

255 

255 

255 









1 



■UNCHANGED 



RESULT=FFFFFFFFH 



-SOURCE UNCHANGED 



NAME OF SUBROUTINE? 



Notes 



1. The destination string is a fixed length. Leading zero bytes must precede 
the operands to handle the result, which may be one bit larger than either of the 
operands. 

2. This may be either a "signed" or "unsigned" subtract. If a two's comple- 
ment number is used, then the sign must be "sign extended" to the more 
significant bits of the operands. 

Program Listing 



7F00 



7F00 F5 
7F01 C5 
7F02 D5 
7F03 E5 
7F04 DDES 
7F06 CD7F0A 
7F09 E5 
7F0A DDE1 
7F0C DD5E00 



00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 



ORG 7F00H 10522 

i* MULTIPLE-PRECISION SUBTRACT. SUBTRACTS TWO MULTIPLE- « 

I* PRECISION OPERANDS* ANY LENGTH. * 

?* INPUT: HL=> PARAMETER BLOCK * 

?* PARAM+0?+l=ADDRESS OF OPERAND 1 * 

5* PARAM+2?+3=ADDRESS OF OPERAND 2 * 

!* PARAM+4=# OF BYTES 0-256 * 

;* OUTPUT: OPERAND 1 LOCATION HOLDS RESULT # 



MPSUBT 



PUSH 


AF 


PUSH 


BC 


PUSH 


DE 


PUSH 


HL 


PUSH 


IX 


CALL 


0A7FH 


PUSH 


HL 


POP 


IX 


LD 


E» CIX+0) 



ISAVE REGISTERS 



!*##GET PB LOC'N*** 
! TRANSFER TO IX 

5 GET OP 1 LOC'N 
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7F0F 


DD5601 


00300 


LD 


D) <IX + 1) 




7F12 


DD6E02 


00310 


LD 


L» <IX+2) 


;GET OP 2 LOC'N 


7F15 


DD6603 


00320 


LD 


H? (IX+3) 




7F18 


DD4E04 


00330 


LD 


C» <IX+4) 


;SET # OF BYTES 


7F1B 


0600 


00340 


LD 


B»0 


SNOW IN BC 


7F1D 


0B 


00350 


DEC 


BC 


5#-l 


7F1E 


09 


00360 


ADD 


HL)BC 


S POINT TO LAST 0P2 


7F1F 


EB 


00370 


EX 


DE>HL 


;SWAP DE AND HL 


7F20 


09 


00380 


ADD 


HL)BC 


; POINT TO LAST OP1 


7F21 


EB 


00390 


EX 


DE)HL 


5 SWAP BACK 


7F22 


41 


00400 


LD 


B>C 


;#-l BACK TO B 


7F23 


04 


00410 


INC 


B 


SORIGINAL NUMBER 


7F24 


B7 


00420 


OR 


A 


I CLEAR CARRY FOR FIRST SUB 


7F25 


1A 


00430 MPS010 


LD 


A) (DE) 


SGET OPERAND 1 BYTE 


7F26 


9E 


00440 


SBC 


Aj (HL) 


1SUB OPERAND 2 


7F27 


12 


00450 


LD 


( DE ) , A 


; STORE RESULT 


7F2B 


2B 


00460 


DEC 


HL 


5 POINT TO NEXT 0P2 


7F29 


IB 


00470 


DEC 


DE 


; POINT TO NEXT OP1 


7F2A 


10F9 


00480 


DJNZ 


MPS010 


SLOOP FOR N BYTES 


7F2C 


DDE1 


00490 


POP 


IX 


; RESTORE REGISTERS 


7F2E 


El 


00500 


POP 


HL 




7F2F 


Dl 


00510 


POP 


DE 




7F30 


CI 


00520 


POP 


BC 




7F31 


Fl 


00530 


POP 


AF 




7F32 


C9 


00540 


RET 




5 RETURN TO CALLING PROG 


0B00 




00550 


END 






00000 TOTAL 


ERRORS 









MSLEFT: MULTIPLE SHIFT LEFT 



MPSUBT DECIMAL VALUES 



245) 197) 213) 229) 221 » 229) 205) 127) IB) 229 » 

221) 225) 221) 94) 0> 221) 86) 1) 221) 110) 

2) 221) 102) 3> 221) 7B» 4) 6) 0) 11) 

9) 235) 9) 235) 65) 4> 183) 26) 158) 18) 

43) 27) 16) 249) 221) 225) 225) 209) 193) 241) 

201 



CHKSUM= 89 



System Configuration 

Model I, Model III, Model II Stand Alone. 

Description 

MSLEFT shifts a given 16-bit value left a specified number of bit positions. The 
shift performed is a "logical" shift where zeroes fill vacated bit positions on the 
right. 

Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
two bytes of the parameter block contain the number to be shifted in standard 
Z-80 16-bit format, least significant byte followed by most significant byte. The 
next byte of the parameter block contains the number of shifts to be performed, 
from 1 to 15. 
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On output, the value in the first two bytes of the parameter block has been 
shifted the appropriate number of times. The count in the third byte of the 
parameter block remains unchanged. 



INPUT 



H 



H 

POINTER TO PARAM+0 



+ 



PARAy+0 

+ 1 


1 6-BIT VALUE 
TO BE 

SHIFTED 


+2 


# OF SHIFTS 







OUTPUT 
H L 






UNCHANGED 






PARAM+0 

+ 1 
+2 

— \ J 


I 




SHIFTED 
RESULT 




UNCHANGED 









Algorithm 

The MSLEFT subroutine performs the shift by placing the number to be shifted 
in HL and the count in the B register. HL is added to itself a number of times 
corresponding to the count in the B register to effect the shift. 

Sample Calling Sequence 



NAME OF SUBROUTINE? MSLEFT 

HL VALUE? 40000 

PARAMETER BLOCK LOCATION? 40000 

PARAMETER BLOCK VALUES? 

+ 021 VALUE TO BE SHIFTED = 0000000000000001 

+ 218 8 SHIFTS 

+ 300 

MEMORY BLOCK 1 LOCATION? 

MOVE SUBROUTINE TO? 50000 

SUBROUTINE EXECUTED AT 50000 

INPUT: OUTPUT: 

HL= 40000 HL= 40000 

PARAM+ i PARAM+ 

PARAM+ 1 PARAM+ 

PARAM+ 2 8 PARAM+ 2 8 UNCHANGED 



01 

i ii 



RESULT = 



NAME OF SUBROUTINE? 

Notes 

1. If is specified as a shift count, 256 shifts will be done, resulting in al 
zeroes in the result. 

2. If 16 to 255 shifts are specified, the result will be all zeroes. 

3. Note that the value to be shifted is Is bytes, ms byte. 

Program Listing 



7FB0 



00100 ORG 7F00H 10522 

001 10 ; ##*#*#####**#######**#######*#*# ## # # * ########## ^ ######## 

00120 ;# MULTIPLE SHIFT LEFT. SHIFTS THE GIVEN 16-BIT VAL UF * 

00130 ;* A SPECIFIED NUMBER OF SHIFTS IN LOGICAL FASHION * 

00140 ;# INPUT: HLOPARAMETER BLOCK * 

00150 !# PARAM+0! +l=VALUE TO BE SHIFTED * 

00160 !* PARAM+2=NUMBER OF SHIFTS # 

00170 ;* OUTPUT: PARAM+0* +i=SHIFTED VALUE * 

00180 ;##*########################*•#####################*#####* 
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00190 


5 






7F00 


C5 


00200 


MSLEFT 


PUSH 


BC 


7F01 


E5 


00210 




PUSH 


HL 


7F02 


DDES 


00220 




PUSH 


IX 


7F04 


CD7F0A 


00230 




CALL 


0A7FH 


7F07 


E5 


00240 




PUSH 


HL 


7F0S 


DDE1 


00250 




POP 


IX 


7F0A 


DD6E00 


00260 




LD 


L? CIX+0) 


7F0D 


DD6601 


00270 




LD 


H, CIX+1) 


7F10 


DD4602 


00280 




LD 


B» <IX+2) 


7F13 


29 


00290 


MSL010 


ADD 


HL?HL 


7F14 


10FD 


00300 




DJNZ 


MSL010 


7F16 


DD7500 


00310 


MSL030 


LD 


(IX+0),L 


7F19 


DD7401 


00320 




LD 


(IX+1)>H 


7F1C 


DDE1 


00330 


MSL04B 


POP 


IX 


7F1E 


Ei 


00340 




POP 


HL 


7F1F 


Ci 


00350 




POP 


BC 


7F20 


C9 


00360 




RET 




0000 




00370 




END 




00000 TOTAL 


ERRORS 









5 SAVE REGISTERS 



;***GET PB LOC'N*** 
; TRANSFER TO IX 

;6ET LSB OF VALUE 
;GET MSB OF VALUE 
;GET # OF SHIFTS 

5LEFT SHIFT MS BYTE 
5 LOOP 'TIL DONE 
; STORE SHIFTED RESULT 

; RESTORE REGISTERS 



? RETURN TO CALLING PROG 



MSLEFT DECIMAL VALUES 



197 5 229 ? 221 » 229? 205 » 127? 10? 229 , 22 h 
221 i 1105 0? 221 i 102? 1? 221 , 70* 2» 41s 
16» 253» 221? 117? 0? 221? 116? 1? 221? 225? 
225? 193? 201 



CHKSUM= 28 



MSRGHT: MULTIPLE SHIFT RIGHT 



System Configuration 

Model I, Model III, Model II Stand Alone. 

Description 

MSRGHT shifts a given 16-bit value right a specified number of bit positions. 
The shift performed is a "logical" shift where zeroes fill vacated bit positions 
on the left. 

Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
two bytes of the parameter block contain the number to be shifted in standard 
Z-80 16-bit format, least significant byte followed by most significant byte. The 
next byte of the parameter block contains the number of shifts to be performed, 
from 1 to 15. 

On output, the value in the first two bytes of the parameter block has been 
shifted the appropriate number of times. The count in the third byte of the 
parameter block remains unchanged. 



INPUT 



OUTPUT 



POINTER TO PARAM+0 

1 



UNCHANGED 



129 



MEM 1+0 

+ 1 
+2 



16-BIT VALUE 

TO BE 

SHIFTED 



# OF SHIFTS 



MEM 1+0 

+ 1 
+2 



=? 



SHIFTED 
RESULT 



UNCHANGED 



Algorithm 

The MSRGHT subroutine performs the shift by placing the number to be shifted 
in HL and the count in the B register. HL is shifted right by first shifting H with 
an SRL. This shifts H one bit position, with the carry being set by the Isb of H. L 
is then shifted right by an RR, which shifts L to itself and places the previous 
value of the carry into the msb of L. This shift sequence is done a number of 
times corresponding to the count in the B register. 

Sample Calling Sequence 



!r^E? u §« 



'ALUE? U — — IINE? MSRGHT 
PARAMETER BLOCK LOCATION? 50000 
PARAMETER BLOCK VALUES? 

+ 02 3276S VALUE TO BE SHIFTED = 1000000000000000 
+ ^' 1 15 15 SHIFTS 

+ 300 

MEMORY BLOCK 1 LOCATION? 
MOVE SUBROUTINE TO? 44444 
SUBROUTINE EXECUTED AT 44444 



INPUTS 
HL= 50000 
PARAM+ 
PARAM+ 1 128 
PARAM+ 2 15 



OUTPUT: 
HL= 50000 
PARAM+ 1 
PARAM+ 1 
PARAM+ 2 15' 



RESULT = 0000000000000001 
UNCHANGED 



NAME OF SUBROUTINE? 
Notes 

1. If is specified as a shift count, 256 shifts will be done, resulting in al 
zeroes in the result. 

2. If 16 to 255 shifts are specified, the result will be all zeroes. 
Program Listing 



7F00 



7F00 C5 
7F01 E5 
7F02 DDES 
7F04 CD7F0A 



00100 ORG 7F00H 5 0522 

00110 ;*****#****#####***##*#######*####*# # «.***# #### * ######### * 

00120 ;* MULTIPLE SHIFT RIGHT. SHIFTS THE GIVEN 16-BIT VALUE * 

00130 ;* A SPECIFIED NUMBER OF SHIFTS IN LOGICAL FASHION * 

00140 %* INPUT: HL=> PARAMETER BLOCK * 

00150 5* PARAM+0?+i=VALUE TO BE SHIFTED * 

00160 ;* PARAM+3=NUMBER OF SHIFTS * 

00170 ?* OUTPUT: PARAM+0, +1=SHIFTED VALUE # 

00180 ;***#***«**###***#*****************#******##*#*******##** 

00190 ; 

00200 MSRGHT PUSH BC ;BAVE REGISTERS 

00210 PUSH HL 

00220 PUSH I X 

00230 CALL 0A7FH ;*##GET PB LOC'N*** 



130 



7F07 


E5 


00240 




PUSH 


HL 


7F08 


DDE1 


00250 




POP 


IX 


7F0A 


DD6E00 


00260 




LD 


Li (1X+0) 


7F0D 


DD6601 


00270 




LD 


H» (IX+1) 


7F10 


DD4602 


00280 




LD 


B» <IX+2) 


7F13 


CB3C 


00290 


MSR010 


SRL 


H 


7F15 


CB1D 


00300 




RR 


L 


7F17 


10FA 


003 1 




DJNZ 


MSR010 


7F19 


DD7500 


00320 


MSRB30 


LD 


(IX+0)>L 


7F1C 


DD7401 


00330 




LD 


<IX+1)»H 


71 IF 


DDE! 


00340 


MSR040 


POP 


IX 


7F2.1 


Ei 


00350 




POP 


HL 


7F22 


CI 


00360 




POP 


BC 


7F23 


C9 


00370 




RET 




0000 




00380 




END 




00000 TOTAL 


ERRORS 









; TRANSFER TO IX 

IGET LSB OF VALUE 

;GET MSB OF VALUE 

;SET # OF SHIFTS 

? RIGHT SHIFT MS BYTE 
; RIGHT SHIFT LS BYTE 
SLOOP 'TIL DONE 

; STORE SHIFTED RESULT 

; RESTORE REGISTERS 



? RETURN TO CALLING PROG 



MSRGHT DECIMAL VALUES 



197? 229, 221 , 229. 205* 127s 10? 229? 221 . 
221 i 110. 0i 221s 102) li 221 » 70 » 2? 203 5 
60» 203 » 29 » 16? 2505 221 i 117> 0; 221 i 116, 
1, 221 » 225) 225. 193» 201 



CHKSUM= 223 



MUNOTE: MUSICAL NOTE ROUTINE 



System Configuration 
Model I, Model III. 

Description 

MUNOTE outputs a musical note through the cassette port. The cassette jack 
output may be connected to a small, inexpensive amplifier for music, audio 
sound effects, or warning tones. The tone ranges over seven octaves starting 
with A three octaves below middle A and ending with G#, three octaves 
above middle G#. The duration of the tone may be specified by the user in 
1/1 6th second increments. Pitches and durations are approximate! 

Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
two bytes of the parameter block contain the address of MUNOTE in standard 
Z-80 address format, least significant byte followed by most significant byte. 
This address may be easily picked up from the USR call if MUNOTE is called 
from BASIC or from the assembly-language CALL address. It is necessary so that 
the code in MUNOTE is completely relocatable. The next byte of the parameter 
block contains the note value of through 83. This note value corresponds to 
musical notes as shown in the table below. The next byte of the parameter 
block specifies the duration of the note in 1/1 6th second increments. A value of 
3, for example, would be 3/1 6ths second. 



131 



On output, the contents of the parameter block remain unchanged and the note 
has been played. 

INPUT OUTPUT 

H L H L 



POINTER TO PARAM+0 



-+- 



UNCHANGED 



PARAM+0 

+ 1 
+2 
+3 



LOCATION 

OF 
MUNOTE 



NOTE VALUE 

-0=83 



DURATION IN 
1/16 NOTES 



PARAM+0 

+ 1 

+2 
+3 



» 



-- UNCHANGED -- 



UNCHANGED 



UNCHANGED 



Table of values for musical notes. 



*>AL 


NOTE 


FREQUENCY 


TABLE 


VALUES 





A 


27.5 


122> 5 


is 


1 


A# 


29.1352 


43s 5 


If 


2 


B 


30.8677 


225 » 4 


1. 


3 


C 


32.7032 


154» 4 


25 


4 


c# 


34.647B 


BBs 4 


2. 


5 


D 


36.7081 


26 5 4 


2, 


6 


D# 


38.8909 


223? 3 


2» 


7 


E 


41.2035 


167> 3 


2, 


B 


F 


43.6535 


114) 3 


25 


9 


F# 


46.2493 


65 » 3 


2» 


10 


e 


48.9995 


18. 3 


3» 


11 


G# 


51.9131 


2305 2 


3s 


12 


A 


55 


1S8> 2 


35 


13 


A# 


58.2705 


148? 2 


3s 


14 


B 


61.7355 


Ills 2 


35 


15 


C 


65.4064 


76 > 2 


4s 


16 


c# 


69.2957 


43s 2 


4s 


17 


D 


73.4163 


12s 2 


4s 


IB 


D# 


77.7818 


2385 1 


4s 


19 


E 


82.407 


2105 1 


5s 


20 


F 


87.3071 


184 5 1 


55 


21 


F# 


92.4987 


1595 1 


5s 


22 


G 


97.999 


136s 1 


6s 


23 


G# 


103.826 


1145 1 


6s 


24 


A 


110 


935 1 


6» 


25 


A# 


116.541 


735 1 


75 


26 


B 


123.471 


54. 1 


7s 


27 


C 


130.813 


37 5 1 


8s 


28 


C# 


138.592 


205 1 


8, 


29 


D 


146.833 


55 1 


9s 


30 


D# 


155.564 


2465 


9» 


31 


E 


164.814 


232 5 


105 


32 


F 


174.614 


219s 


105 


33 


F# 


184.997 


206 s 


Hi 


34 


G 


195.998 


195 5 


12s 


35 


G# 


207.653 


1845 


J2'5 


36 


A 


220 


173s 


13> 


37 


A# 


233.082 


163> 


14s 


38 


B 


246.942 


154> 


15» 


39 


C 


261.626 


145f 


16s 


40 


C# 


277. 183 


1375 


175 


41 


D 


293.665 


1295 


IBs 


42 


D# 


311. 128 


122s 


19) 


43 


E 


329.628 


115> 


205 


44 


F 


349.229 


108» 


21s 


45 


F# 


369.995 


102» 


23 s 


46 


G 


391.996 


96» 


24s 


47 


G# 


415.306 


915 


25 s 



132 



I 



I 
I 
I 



48 


A 


440.001 


86j 





27 5 





49 


A# 


466. 165 


81* 





29 s 





50 


B 


493.884 


76? 





305 





51 


C 


523.252 


72 > 





32 9 





52 


C# 


554.367 


67 5 





345 





53 


D 


587.331 


64 s 





36 » 





54 


D# 


622.256 


605 





38s 





55 


E 


659.257 


56> 





41. 





56 


F 


698.458 


53? 





43, 





57 


F# 


739.991 


505 





46 5 





5B 


5 


783.993 


47 s 





48, 





59 


G# 


830.612 


44, 





51. 





60 


A 


880.003 


42 s 





55> 





61 


A# 


932.33 


39? 





58, 





62 


B 


987.769 


37s 





61s 





63 


C 


1046.51 


35 1 





65. 





64 


C# 


1108.73 


33; 





69 s 





65 


D 


1174.66 


31> 





73. 





66 


D# 


1244.51 


29> 





775 





67 


E 


1318.51 


27 s 





82> 





68 


F 


1396.92 


25. 





87. 





69 


F# 


1479.98 


24 5 





92 5 





70 


G 


1567.99 


22 1 





97j 





71 


G# 


1661. 22 


21 5 





103 





72 


A 


1760.01 


205 





110 





73 


A# 


1864.66 


185 





116 





74 


B 


1975.54 


17» 





123 





75 


C 


2093.01 


16. 





130 





76 


C# 


2217.47 


15s 





138 





77 


D 


2349.33 


145 





146 





78 


D# 


2489.03 


135 





155 





79 


E 


2637 . 03 


125 





164 





80 


F 


2793.84 


125 





174 





81 


F# 


2959.97 


115 





184 





82 


G 


3135.98 


105 





195 





83 


G# 


3322.45 


95 





207 






Algorithm 

Operation of MUNOTE is very similar to TONOUT. MUNOTE, however, picks 
up a frequency count and duration count from the MUNTB table. This table is 
referenced to the note value in the parameter block. The note value of 
through 83 is multiplied by 4, added to the starting address of MUNOTE from 
the parameter block, and then added to the displacement of the table, MUNTB, 
to point to the table entry. The frequency count and duration count from 
MUNTB are then picked up and put into DE and BC, respectively. The duration 
count is multiplied by the number of 16ths specified in the parameter block, 
and the final duration count is put into IX. From this point on, the code is 
almost identical to the TONOUT code. 

MUNOTE uses two loops. The outer loop (from MUN010) produces the num- 
ber of cycles equal to the duration count. The inner loop is made up of two 
parts. The MUN020 portion outputs an "on" pulse from the cassette output. 
The MUN030 portion turns off the cassette port for the same period of time. 
Both portions use the frequency count from the DE register for a timing loop 
count. 

The MUN010 loop puts the DE frequency count into HL and turns on the 
cassette (OUT 0FFH,A). The count in HL is then decremented by one in the 
MUN020 timing loop. At the end of the loop, the count is again put into HL 
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from DE, the cassette is turned off, and the count is decremented by one in the 
MUN030 timing loop. After this loop, the duration, or cycle, count in IX is 
decremented by one and if it is not negative, a jump is made back to MUN010 
for the next cycle. 

Sample Calling Sequence 



NAME OF SUBROUTINE? MUNOTE 

HL VALUE? 40000 

PARAMETER BLOCK LOCATION? 40000 

PARAMETER BLOCK VALUES? 



+ 02 

+ 2 i 
+ 3 i 
+ 40 
MEMORY 



37000 
60 
2 

BLOCK 1 



START OF MUNOTE 
FIFTH OCTAVE, A 
1/8TH SECOND 

LOCATION? 



MOVE SUBROUTINE TO? 37000 
SUBROUTINE EXECUTED AT 37000 



INPUT: 
HL= 40000 
PARAM+ 
PARAM+ i 
PARAM+ 2 
PARAM+ 3 



OUTPUT: 
HL= 4000B 
136 PARAM+ 136 
144 PARAM+ 1 144 
60 PARAM+ 2 60 
2 PARAM+ 3 2 



NAME OF SUBROUTINE? 



Notes 



1. The table values are for a standard TRS-80 Model I clock frequency. They 
must be recomputed for clock speed upgrades or adjusted for a Model III. 
Multiply the frequency values by 1 .143 and divide the duration values by 1 .143 
for a Model III. 

2. Lower octave durations and higher octave frequencies are approximate. 
Program Listing 



7F00 



7F00 
7F01 
7F02 
7F03 
7F04 
7F06 
7F08 
7F0B 
7F0C 
7F0E 
7F11 



F5 

C5 

D5 

E5 

DDES 

FDE5 

CD7F0A 

E5 

DDE1 

DD6E02 

2600 



00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
002S0 
00290 
00300 
00310 



ORG 7F00H 5 0522 

5* MUSICAL NOTE ROUTINE. OUTPUTS MUSICAL NOTE THROUGH * 

;* CASSETTE PORT. # 

5* INPUT: HL=> PARAMETER BLOCK * 

?* PARAM+0»+l=LOCATION OF MUNOTE * 

5* PARAM+2=N0TE VALUE » THROUGH 83 * 

!* PARAM+3=DURATI0N IN 1/16TH NOTES * 

;* OUTPUT: NOTE OUTPUT TO CASSETTE PORT * 
5 ***************#*****####**#**#**###*##**#***#******#**♦ 

; 



MUNOTE 



PUSH 

PUSH 

PUSH 

PUSH 

PUSH 

PUSH 

CALL 

PUSH 

POP 

LD 

LD 



AF 

BC 

DE 

HL 

IX 

IY 

0A7FH 

HL 

IX 

Lj (IX+2) 

H>0 



;SAVE REGISTERS 



;#**GET PB LOC'N*** 
5 TRANSFER TO IX 



5GET 
5 NOW 



NOTE VALUE 
IN HL 
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7F13 


29 


00320 




ADD 


HL?HL 


7F14 


29 


00330 




ADD 


HL-.HL 


7F15 


DD5E00 


00340 




LD 


E? UX+0) 


7F18 


DD5601 


00350 




LD 


D? UX + 1) 


7F1B 


19 


00360 




ADD 


HL?DE 


7F1C 


115F00 


00370 




LD 


DE> MUNTB 


7F1F 


19 


00380 




ADD 


HL?DE 


7F20 


E5 


00390 




PUSH 


HL 


7F21 


FDE1 


00400 




POP 


IY 


7F23 


FD5E00 


00410 




LD 


E> (IY+0) 


7F26 


FD5601 


00420 




LD 


D? (IY+1) 


7F29 


FD4E02 


00430 




LD 


C? CIY+2) 


7F2C 


FD4603 


00440 




LD 


B? < IY+3) 


7F2F 


210000 


00450 




LD 


HL?0 


7F32 


DD7E03 


00460 




LD 


A? (IX + 3) 


7F35 


09 


00470 


MUN005 


ADD 


HLiBC 


7F36 


3D 


00480 




DEC 


A 


7F37 


20FC 


00490 




JR 


NZ?MUN005 


7F39 


E5 


00500 


MUN008 


PUSH 


HL 


7F3A 


DDE1 


00510 




POP 


IX 


7F3C 


01FFFF 


00520 




LD 


BC?-1 


7F3F 


6B 


00530 


HUN010 


LD 


L?E 


7F40 


62 


00540 




LD 


H?D 


7F41 


3E01 


00550 




LD 


As 1 


7F43 


D3FF 


00560 




OUT 


<0FFH)?A 


7F45 


09 


00570 


MUN020 


ADD 


HL?BC 


7F46 


DA457F 


00580 




JP 


C?MUN020 


7F49 


6B 


00590 




LD 


L?E 


7F4A 


62 


00600 




LD 


H?D 


7F4B 


3E02 


00610 




LD 


A?2 


7F4D 


D3FF 


00620 




OUT 


<0FFH)»A 


7F4F 


09 


00630 


MUN030 


ADD 


HL?BC 


7F50 


38FD 


00640 




JR 


C?MUN030 


7F52 


DD09 


00650 




ADD 


IX?BC 


7F54 


38E9 


00660 




JR 


C?MUN010 


7F56 


FDE1 


00670 




POP 


IY 


7F58 


DDE1 


00680 




POP 


IX 


7F5A 


El 


00690 




POP 


HL 


7F5B 


Dl 


00700 




POP 


DE 


7F5C 


CI 


00710 




POP 


BC 


7F5D 


Fl 


00720 




POP 


AF 


7F5E 


C9 


00730 




RET 




005F 




00740 


MUNTB 


EOU 


*-MUNOTE 






00750 


5 MUSICAL NOTE 


TABLE. ENT 






00760 


; ENTRY+2?+3 IS DURATION 


0000 




00770 




END 




00000 TOTAL. 


ERRORS 









;INDEX*2 
;INDEX*4 
5 PUT MUNOTE BASE IN BC 

5BASE PLUS INDEX 

STABLE DISPLACEMENT 

; POINT TO ENTRY 

; TRANSFER ENTRY LOC TO IY 

;PUT FREO COUNT IN DE 

;PUT DUR COUNT IN BC 

UNITIALIZE DURATION 
;SET DURATION IN 1/16THS 
! CHANGE TO SPEC DURATION 
5DECREMENT 1/16THS CNT 
5LOOP TIL DONE 
5 TRANSFER NEW CNT TO IX 

5 FOR TIGHT LOOP 

5PUT FREO COUNT IN HL 4 

54 

; MAX I MUM POSITIVE 7 

5 OUTPUT 11 

; COUNT- 1 11 

;LOOP FOR 1/2 CYCLE 7/12 
;PUT FREQ COUNT IN HL 4 
;4 

5MAXIMUM NEGATIVE 7 
! OUTPUT 11 

; COUNT- 1 11 

5 LOOP FOR 1/2 CYCLE 7/12 
5 DECREMENT DUR COUNT 15 
SLOOP IF NOT DONE 7/12 
5 RESTORE REGISTERS 



; RETURN TO CALLING PROG 

RY+0?+l IS FREQUENCY COUNT. 
COUNT FOR 1/16THS. 



MUNOTE DECIMAL VALUES 



245 » 197? 213? 229? 221s 229? 253n 229? 205 ? 

10. 229? 221 ? 225> 221? 1105 2? 38? 0? 41? 

41? 221? 94? 0j 221? 86? 1. 25? 17? 95 » 

5 25? 229? 253? 225? 253? 94? 0? k'53? 86? 

1? 253? 78? 2? 253? 70? 3? 33? 0? 0? 

221? 126? 3? 9? 61? 32? 252? 229? 221? 225? 

1? 255? 255? 107? 98? 62? 1? 211? 255? 9? 

218? 69? 127? 107? 98? 62? 2? 211? 255? 9? 

56? 253? 221? 9? 56? 233? 253? 225? 221? 225? 

225? 209? 193? 241? 201 



127? 



CHKSUM= 225 
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MVDIAG: MOVING DOT DIAGONAL 



System Configuration 
Model I, Model III. 

Description 

MVDIAG moves a "dot" along a diagonal line with a varying time delay. This 
effect can be used for games or other applications. The dot may move along the 
diagonal from "bottom" to "top" of the screen, or from "top" to "bottom." 
The amount of time that the dot remains in any position can be adjusted under 
program control. 



Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
byte of the parameter block contains the starting x character position of the dot, 
from to 63. The next byte of the parameter block contains the starting line 
number y of the dot, from to 15. The next byte of the parameter block con- 
tains the number of character positions of travel. This will be a maximum of 16 
for a diagonal that starts 16 character positions or greater from the side of the 
screen. The next byte of the parameter block contains the time delay value 
from 1 to 255 or (256). One is a minimum time delay, while 255 and (256) 
are maximum time delays. The next byte of the parameter block contains the 
direction of travel— is up to the right, 1 is up to the left, 2 is down to the right, 
and 3 is down to the left. 

On output, the parameter block contents are unchanged. The dot has moved 
over the specified diagonal. 



INPUT 







H L 






POINTER TO PARAM+0 

i 


PARA 


M+0 

+ 1 
+2 
+3 
+4 






STARTING X 




STARTING Y 




LENGTH OF 
TRAVEL 




TIME DELAY 




DIRECTION 









OUTPUT 
H L 




\ 


UNCHANGED 




PARA 


M+0 

+ 1 

+2 
+3 
+4 






UNCHANGED 




UNCHANGED 




UNCHANGED 




UNCHANGED 




UNCHANGED 





Algorithm 

The MVDIAG subroutine performs the move by computing the starting address 
of the dot in video display memory, by computing the "increment" to add to 
the address to obtain the next dot position, and by controlling the move with a 
count of the number of character positions involved. 

First, the line number value is picked up from the parameter block. This is 
multiplied by 64 to find the number of bytes (displacement) from the start of 
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I 
I 

I 



video display memory. This value is added to 3C00H to find the actual video 
memory address for the line start. This value is added to the character position 
of the start from the parameter block to find the starting position in video 
display memory. 

Next, a test is made of the direction of travel. Based on the direction, an incre- 
ment value of -41 H (up to left), -3FH (up to right), 3FH (down to left), or41H 
(down to right) is found. This represents the number to be added to the last 
video display memory location to find the next video display memory location 
for the dot. 

The code at MVD020 is the main loop of the subroutine. A byte of OBFH is 
stored to the current video display memory position. A time delay is then done 
by decrementing the count value in the C register. After the delay, a byte of 80H 
is stored to "erase" the last dot. 

The increment value is then added to the current video display memory posi- 
tion to find the next location of the dot. A count of the number of character 
positions involved is then decremented, and a jump is made to MVD020 if the 
count is not zero. 

Sample Calling Sequence 



NAME OF SUBROUTINE? MVDIAG 

HL VALUE? 43333 

PARAMETER BLOCK LOCATION? 43333 

PARAMETER BLOCK VALUES? 



+ 





1 


8 


X = 8 




+ 


1 


1 


15 


Y = 15 




+ 


2' 


l 


16 


LENGTH = 16 (END X, Y = 


= 24, 0) 


+ 


3 


l 





MAXIMUM DELAY 




+ 


4 


i 





UP TO RIGHT 




+ 


5 













MEMORY BLOCK 1 LOCATION? 
MOVE SUBROUTINE TO? 38888 
SUBROUTINE EXECUTED AT 38888 



INPUT: 




OUTPUT: 






HL= 43333 




HL= 43333 






PARAM+ 


8 


PARAM+ 


8 




PARAM+ 1 


15 


PARAM+ 1 


15 




PARAM+ 2 


16 


PARAM+ 2 


16 


-UNCHANGED 


PARAM+ 3 





PARAM+ 3 







PARAM+ 4 





PARAM+ 4 








NAME OF SUBROUTINE? 



Notes 



1. The program may "bomb" the system if the length of travel goes beyond 
video display memory boundaries or if x or y are incorrect values. Maximum 
length is 16. 

2. Add additional time wasting instructions as required. 

3. Delete time wasting instructions as required. Substituting NOPs (zeroes) 
will shorten the delay. 

4. Speed at maximum delay is about 85 character positions per second. 
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Program Listing 



7F00 



7F00 

7F01 

7F02 

7F03 

7F04 

7F06 

7F0B 

7F0B 

7F0C 

7F0E 

7F10 

7F13 

7F15 

7F16 

7F1B 

7F1B 

7F1C 

7F1F 

7F21 

7F22 

7F25 

7F28 
7F2A 

7F2D 

7F2F 

7F32 

7F34 

7F36 

7F37 

7F38 

7F3A 

7F3D 

7F3E 

7F42 

7F46 

7F4A 

7F4E 

7F50 

7F52 

7F53 

7F55 

7F57 

7F59 

7F5A 

7F5B 

7F5C 

7F5D 

0000 

00000 TOTAL 



F5 
C5 

D5 

E5 

DDE5 

FDE5 

CD7F0A 

E5 

DDE1 

0606 

DD6E01 

2600 

29 

10FD 

01003C 

09 

DD4E00 

0600 

09 

DD4602 

DD4E04 

CB49 

1 1 BFFF 

2803 

113F00 

CB41 
2002 

13 

13 

36BF 

DD4E03 

0D 

FD2A0000 

FD2A0000 

FD2A0000 

FD2A0000 

20ED 

3680 

19 

10E3 

FDE1 

DDE1 

El 

Dl 

CI 

Fl 

C9 



00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 
00560 
00570 
00580 
00590 
00600 
00610 
00620 
00630 
00640 
00650 
00660 
00670 
00680 
00690 
00700 
00710 
00720 
RRORS 



ORG 7F00H ; 0522 

;* MOVING DOT DIAGONAL. MOVES DOT ALONG DIAGONAL LINE * 

5* WITH VARYING TIME DELAY # 

S* INPUT: HL=> PARAMETER BLOCK * 

5* PARAM+0=STARTING CHAR POS'N <X) * 

5* PARAM+1=STARTING LINE # (Y) * 

"'* PARAM+2=LENGTH OF TRAVEL IN CHAR POSNS * 

?* PARAM+3=TIME DELAY* 1=MIN 255/0=MAX * 

; * PARAM+4=0 IS UP TO RIGHT. 1 IS UP TO LEFT * 

; * 2 IS DOWN TO RIGHT* 3 IS DOWN TO * 

5* LEFT * 

5* OUTPUT: DOT MOVES ALONG DIAGONAL LINE * 



MVDIAG 



MVD010 



MVD015 



MVD020 



MVD030 



PUSH 

PUSH 

PUSH 

PUSH 

PUSH 

PUSH 

CALL 

PUSH 

POP 

LD 

LD 

LD 

ADD 

DJNZ 

LD 

ADD 

LD 

LD 

ADD 

LD 

LD 

BIT 

LD 

JR 

LD 

BIT 

JR 

INC 

INC 

LD 

LD 

DEC 

LD 

LD 

LD 

LD 

JR 

LD 

ADD 

DJNZ 



PC 
PC 
PO 
PC 
PO 
PO 



>P 
)P 
>P 

:>p 
>p 
>p 



AF 

BC 

DE 

HL 

IX 

IY 

0A7FH 

HL 

IX 

B»6 

L» ( IX+1) 

H»0 

HL*HL 

MVD010 

BC?3C00H 

HL»BC 

C, (IX+0) 

B*0 

HL*BC 

B» (IX+2) 

C» (IX+4) 

1)C 
DE»-41H 

Z>MVD015 

DE)3FH 

0, C 

NZ,MVD020 

DE 

DE 

<HL)»0BFH 

C» UX+3) 

C 

IY» (0) 

IY» (0) 

IY* (0) 

IY. (0) 

NZ.MVD030 

(HD.80H 

HL.DE 

MVD020 

IY 

IX 

HL 

DE 

BC 

AF 



[SAVE REGISTERS 



;*##GET PB LOC'N*** 
; TRANSFER TO IX 

! ITERATION COUNT 
?GET LINE # 
SNOW IN HL 

?LINE# * 64 

SLOOP 'TIL DONE 
; START OF SCREEN 
SFIND LOC OF LINE START 
5GET CHAR POSN (X) 
;NOW IN BC 
SFIND ACTUAL LOC'N 
5 GET LENGTH OF TRAVEL 
5 GET DIRECTION CODE 
5 TEST DIRECTION 
S INCREMENT FOR NEXT DOT 
SGO IF UP 

S INCREMENT FOR DOWN 
5TEST RIGHT/LEFT 
SGO IF LEFT 
5RI6HT 

5 SET CHAR POS TO ALL ON 
5 GET DELAY COUNT 

; DECREMENT COUNT 

5 WASTE TIME 



S DELAY LOOP 
5 RESET CHAR POS 
5POINT TO NEXT POSITION 
iLOOP FOR LENGTH OF LINE 



RET 
END 



5 RESTORE REGISTERS 



5 RETURN TO CALLING PROG 
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HVDIAG DECIMAL VALUES 



245, 197, 213? 229, 221 , 229, 253, 229, 205? 127, 

10 5 229. 221s 225, 6s 6, 221, 110, 1, 38, 

0, 41» 16, 253, 1, 0, 60, 9, 221 » 78, 

0, 6, 0» 9, 221, 70, 2, 221, 78, 4, 

203, 73, 17, 191, 255, 40, 3, 17, 63, 0, 

203, 65, 32, 2, 19, 19, 54, 191, 221, 78, 

3, 13, 253, 42, 0, 0, 253, 42, 0, 0, 

253, 42, 0, 0, 253, 42, 0, 0, 32, 237, 

54, 128, 25, 16, 227, 253, 225, 221, 225, 225, 

209, 193, 241, 201 



CHKSUM= 175 



MVHORZ: MOVING DOT HORIZONTAL 



System Configuration 
Model I, Model III. 

Description 

MVHORZ moves a "dot" along a horizontal line with a varying time delay. 
This effect can be used for games or other applications. The dot may move 
along the horizontal line from right to left, or from left to right, on the screen. 
The amount of time that the dot remains in any position can be adjusted under 
program control. 

Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
byte of the parameter block contains the starting x character position of the dot, 
from to 63. The next byte of the parameter block contains the starting line 
number y of the dot, from to 15. The next byte of the parameter block con- 
tains the number of character positions of travel. This will be a maximum of 64 
for horizontal travel that starts at a right or left edge of the screen. The next byte 
of the parameter block contains the time delay value from 1 to 255 or (256). 
One is a minimum time delay, while 255 and (256) are maximum time delays. 

On output, the parameter block contents are unchanged. The dot has moved 
over the specified horizontal line. 



INPUT 



H 



POINTER TO PARAM+0 



PARAM+0 

+ 1 
+2 
+3 



4- 



STARTING X 



STARTING Y 



(-6 

"TIM 



LENGTH 

4TO+6.4) 

ME DELAY 
COUNT 







OUTPUT 

H L 




=^> 


UNCHANGED 


PARA 


M+0 
+ 1 
+2 

+3 


i 




UNCHANGED 




UNCHANGED 




UNCHAN^zI 




UNCHANGED 




— 9 
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Algorithm 

The MVHORZ subroutine performs the move by computing the starting ad- 
dress of the dot in video display memory, by finding the direction of travel, and 
by controlling the move with a count of the number of character positions 
involved. 



\ 



First, the line number value is picked up from the parameter block. This is _ 

multiplied by 64 to find the number of bytes (displacement) from the start of I 

video display memory. This value is added to 3C00H to find the actual video 
memory address for the line start. This value is added to the character position 
of the start from the parameter block to find the starting position in video 
display memory. 

Next, a test is made of the direction of travel. Based on the direction, a "move 
right" code segment (MVH040) or a "move left" code segment (MVH020) is 
entered. Both segments are very similar, except that the "move right" incre- 
ments the next character position pointer, while the "move left" decrements 
the next character position pointer. 

In each code segment, a byte of OBFH is stored to the current video display 
memory position. A time delay is then done by decrementing the count value 
in the C register. After the delay, a byte of 80H is stored to "erase" the last dot. 

The current video display memory position in HL is then incremented or decre- 
mented to find the next location of the dot. The count of the number of charac- 
ter positions involved is then decremented, and a jump is made to MVH020 or 
MVH040 if the count is not zero. 



Sample Calling Seqence 



NAME OF SUBROUTINE? MVHORZ 

HL VALUE? 40000 

PARAMETER BLOCK LOCATION? 40000 

PARAMETER BLOCK VALUES? 

+ 1 X = 

+ 1 1 8 Y=8 

+ 2 1 64 LENGTH = 64 (END X,Y = 64, 8), RIGHT 

+ 310 MAXIMUM DELAY 

+ 400 

MEMORY BLOCK 1 LOCATION? 

MOVE SUBROUTINE TO? 37000 

SUBROUTINE EXECUTED AT 37000 

INPUT: OUTPUT: 

HL= 40000 HL= 40000 

PARAM+ PARAM+ 

PARAM+ 1 S PARAM+ 1 8 

PARAM+ 2 64 PARAM+ 2 64 

PARAM+ 3 PARAM+ 3 



NAME OF SUBROUTINE? 

Notes 

1. The program may "bomb" the system if the length of travel goes beyond 
video display memory boundaries. Maximum length is —64 or +64. 
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2. The program may "bomb" the system if the x and y coordinates are im- 
properly specified. 

3. Use additional time-wasting instructions as required. 

4. Delete time-wasting instructions as required. NOPs (all zeroes) may be 
substituted to shorten delay times. 

5. Speed at maximum delay is about 85 character positions per second. 

Program Listing 



7M3G 



7F0O 
7F01 

7F02 
7F03 
7F05 
7F07 
7F0A 
7F0B 
7F0D 
7F0F 
7F12 
7F14 
7F15 
7F17 
7F1A 
7F1B 
7F1E 
7F20 
7F21 
7F24 
7F26 
7F2S 
7F29 
7F2B 
7F2C 
7F2E 
7F31 
7F32 
7F36 
7F3A 
7F3E 
7F42 
7F44 
7F46 
7F47 
7F49 
7F4B 
7F4D 
7F50 
7F51 
7F55 



F5 

C5 

E5 

DDE5 

FDE5 

CD7F0A 

E5 

DDE1 

0606 

DD6E01 

2600 

29 

10FD 

01003C 

09 

DD4E00 

0600 

09 

DD4602 

CB78 

2823 

78 

ED44 

47 

36BF 

DD4E03 

0D 

FD2A0000 

FD2A0000 

FD2A0000 

FD2A0000 

20ED 

3680 

2B 

10E3 

181D 

36BF 

DD4E03 

0D 

FD2A0000 

FD2A0000 



00100 

00.1.10 
00 1 20 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 
00560 
00570 
005B0 
00590 
00600 
00610 
00620 
00630 



ORG 



7F00H 



;0522 



;* MOVING DOT HORIZONTAL. MOVES DOT ALONG HORIZONTAL * 

;* LINE WITH VARYING TIME DELAY. * 

i* INPUT: HL=> PARAMETER BLOCK * 

;* PARAM+0=STARTING CHAR POS'N (X) * 

;# PARAM+1=STARTING LINE # (Y) * 

;# PARAM+2=LENGTH OF TRAVEL IN CHAR POBNS * 

!* + IS TO RIGHT, - IS TO LEFT # 

;* PARAM+3=TIME DELAY, 1=MIN 255/0=MAX * 

!# OUTPUT: DOT MOVES ALONG LINE * 



MVHORZ 



MVH01C 



MVH020 



MVH030 



MVH040 



MVH050 



PUSH 

PUSH 

PUSH 

PUSH 

PUSH 

CALL 

PUSH 

POP 

LD 

LD 

LD 

ADD 

DJNZ 

LD 

ADD 

LD 

LD 

ADD 

LD 

BIT 

JR 

LD 

NEG 

LD 

LD 

LD 

DEC 

LD 

LD 

LD 

LD 

JR 

LD 

DEC 

DJNZ 

JR 

LD 

LD 

DEC 

LD 

LD 



AF 

BC 

HL 

IX 

IY 

0A7FH 

HL 

IX 

B,6 

L, ( IX+1 ) 

H,0 

HL,HL 

MVH010 

BO3C00H 

HL.BC 

C, < IX+0) 

B,0 

HL»BC 

B» ( IX+2) 

7,B 

Z,MVH040 

A,B 

B, A 

( HL ) , 0BFH 

C, ( IX+3) 

C 

(0) 

(0) 

(0) 

(0) 
■MVH030 



IY, 

IY, 

IY, 

IY, 

NZ, 

(HL) , 80H 

HL 

MVH020 

MVH090 

( HL ) , 0BFH 

C, ( IX+3) 

C 

IY, (0) 

IY, (0) 



5SAVE REGISTERS 



;***GET PB LOC'N*** 
; TRANSFER TO IX 

5 ITERATION COUNT 
?GET LINE # 
;NOW IN HL 

;LINE# * 64 

5 LOOP 'TIL DONE 
; START OF SCREEN 
;FIND L..OC OF LINE START 
5 GET CHAR POSN (X) 
;NOW IN BC 
5FIND ACTUAL LOC'N 
;GET LENGTH OF TRAVEL 
5 TEST SIGN 
;GO IF RIGHT 
5LEFT 

5FIND ABSOLUTE VALUE 
?BACK TO B FOR DJNZ 

;SET CHAR POS TO ALL ON 

;GET DELAY COUNT 
; DECREMENT COUNT 
5WASTE TIME 



; DELAY LOOP 
; RESET CHAR POS 
; POINT TO NEXT POSN 
SLOOP FOR LENGTH OF LINE 
5GO TO CLEAN UP 

5SET CHAR POS TO ALL ON 
;GET DELAY COUNT 

; DECREMENT COUNT 

5WASTE TIME 
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7F59 


FD2A0000 


00640 


LD 


IY, (FT 


7F5D 


FD2A0000 


00650 


LD 


IY, (0) 


7F6I 


20ED 




00660 


JR 


NZ.MVH050 


7F63 


3680 




00670 


LD 


CHL),80H 


7F65 


23 




00680 


INC 


HL 


7F66 


1BE3 




00690 


DJNZ 


MVH040 


7F68 


FDE1 




00700 MVH090 


POP 


IY 


7F6A 


DDEi 




00710 


POP 


IX 


7F6C 


El 




00720 


POP 


HL 


7F6D 


Ci 




00730 


POP 


BC 


7F6E 


Fi 




00740 


POP 


AF 


7F6F 


C9 




00750 


RET 




0000 






00760 


END 




0000E 


TOTAL 


ERRORS 







5 DELAY LOOP 
5 RESET CHAR POS 
5 POINT TO NEXT POSN 
5 LOOP FOR LENGTH OF LINE 
I RESTORE REGISTERS 



5 RETURN TO CALLING PROG 



MVHORZ DEC I HAL VALUES 



245. 197, 229 i 221. 229 » 253? 229? 205. 127, 10. 
229, 221 > 225 i 6, 6, 221 , 110. 1, 38. 0, 

41) 16s 253, 1) 0, 60? 9, 221 » 78> 0? 

6, 0» 9) 221, 70, 2, 203. 120. 40, 35, 

120, 237. 68, 71, 54, 191, 221, 78, 3, 13, 

253, 42, 0, 0, 253. 42, 0, 0, 253, 42, 

0, 0, 253, 42, 0, 0, 32, 237, 54, 128, 

43, 16, 227, 24, 29, 54, 191, 221, 78, 3, 

13» 253, 42, 0, 0, 253, 42, 0, 0. 253, 

42, 0, 0, 253, 42, 0, 0, 32, 237, 54, 

128, 35, 16, 227, 253, 225, 221, 225. 225, 193, 

241, 201 
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MVVERT: MOVING DOT VERTICAL 



System Configuration 
Model i, Model III. 

Description 

MVVERT moves a "dot" along a vertical line with a varying time delay. This 
effect can be used for games or other applications. The dot may move along the 
vertical line from top to bottom, or from bottom to top, on the screen. The 
amount of time that the dot remains in any position can be adjusted under 
program control. 

Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
byte of the parameter block contains the starting x character position of the dot, 
from to 63. The next byte of the parameter block contains the starting line 
number y of the dot, from to 15. The next byte of the parameter block con- 
tains the number of character positions of travel. This will be a maximum of 16 
for vertical travel that starts at the top or bottom of the screen. The next byte of 
the parameter block contains the time delay value from 1 to 255 orO (256). One 
is a minimum time delay, while 255 and (256) are maximum time delays. 
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On output, the parameter block contents are unchanged. The dot has moved 
over the specified vertical line. 



INPUT 



H 



POINTER TO PARAM+0 



PARAM+0 


STARTING X 


+ 1 


STARTING Y 


+2 


LENGTH 
(-16TO+16) 


+3 


TIME DELAY 
COUNT 







OUTPUT 
H L 






UNCHANGED 


y 


PARAM+0 

+ 1 

+2 


I 




UNCHANGED 




UNCHANGED 




UNCHANGED 




UNCHANGED 





Algorithm 

The MVVERT subroutine performs the move by computing the starting address 
of the dot in video display memory, by finding the direction of travel, and by 
controlling the move with a count of the number of character positions in- 
volved. 

First, the line number value is picked up from the parameter block. This is 
multiplied by 64 to find the number of bytes (displacement) from the start of 
video display memory. This value is added to 3C00H to find the actual video 
memory address for the line start. This value is added to the character position 
of the start from the parameter block to find the starting position in video 
display memory. 

Next, a test is made of the direction of travel. Based on the direction, an incre- 
ment value of 40H (down) or — 40H (up) is stored in DE. 

The code at MVV020 is the main loop of the subroutine. A byte of OBFH is 
stored to the current video display memory position. A time delay is then done 
by decrementing the count value in the C register. After the delay, a byte of 80H 
is stored to "erase" the last dot. 

The current video display memory position in HL is then incremented or decre- 
mented by the increment value in DE to find the next location of the dot. The 
count of the number of character positions involved is then decremented, and a 
jump is made to MVV020. 

Sample Calling Sequence 



NAME OF SUBROUTINE? MVVERT 

HL VALUE? 40000 

PARAMETER BLOCK LOCATION? 40000 

PARAMETER BLOCK VALUES? 



+ 





i 


32 


X = 32 


+ 


i 


1 





Y = 


+ 


2 


i 


240 


LENGTH = 16, DOWN 


+ 


3 


l 





MAXIMUM DELAY 


+ 


4 











MEMORY BLOCK i LOCATION? 
MOVE SUBROUTINE TO? 39000 
SUBROUTINE EXECUTED AT 39000 
INPUT: OUTPUT: 
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HL= 40000 
PARAM+ 32 
PARAM+ 1 
PARAM+ 2 240 
PARAM+ 3 



HL= 40000 
PARAM+ 32 
PARAM+ 1 
PARAM+ 2 240 
PARAM+ 3 



-UNCHANGED 



NAME OF SUBROUTINE? 



Notes 



1. The program may "bomb" the system if the length of travel goes beyond 
video display memory boundaries. 

2. The program may "bomb" the system if the x and y coordinates are im- 
properly specified. 

3. Use additional time-wasting instructions as required. 

4. Delete time-wasting instructions as required. NOPs (all zeroes) may be 
substituted to shorten delay times. 

5. Speed at maximum delay is about 85 character positions per second. 
Program Listing 



7F00 



7F00 

7F01 

7F02 

7F03 

7F04 

7F06 

7F08 

7F0B 

7F0C 

7F0E 

7F10 

7F13 

7F15 

7F16 

7F1B 

7F1B 

7F1C 

7F1F 

7F21 

7F22 

7F25 

7F27 

7F2A 

7F2C 

7F2D 

7F2F 



F5 

C5 

D5 

E5 

DDES 

FDE5 

CD7F0A 

E5 

DDE1 

0606 

DD6E01 

2600 

29 

10FD 

01003C 

09 

DD4E00 

0600 

09 

DD4602 

CB7B 

UC0FF 

2B07 

7B 

ED44 

47 



00100 

00110 

00120 

00130 

00140 

00150 

00160 

00170 

001 60 

00190 

00200 

00210 

00220 

00230 

00240 

00250 

00260 

00270 

002B0 

00290 

00300 

00310 

00320 

00330 

00340 

00350 

00360 

00370 

003B0 

00390 

00400 

00410 

00420 

00430 

00440 

00450 

00460 

00470 

00480 



ORG 7F00H 5 0522 

5* MOVING DOT VERTICAL. MOVES DOT ALONG VERTICAL LINE # 

5* WITH VARYING TIME DELAY * 

;* INPUT: HL=> PARAMETER BLOCK # 

5* PARAM+0=STARTING CHAR POS'N (X) * 

5* PARAM+l=STARTING LINE # (Y) * 

'* PARAM+2-LENGTH OF TRAVEL IN CHAR POSNS * 

5* + IS UP? - IS DOWN * 

5* PARAM+3=TIME DELAY, 1=MIN 255/0=MAX * 

5* OUTPUT: DOT MOVES ALONG VERTICAL LINE * 

MVVERT 



MVV010 
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PUSH 

PUSH 

PUSH 

PUSH 

PUSH 

PUSH 

CALL 

PUSH 

POP 

LD 

LD 

LD 

ADD 

DJNZ 

LD 

ADD 

LD 

LD 

ADD 

LD 

BIT 

LD 

JR 

LD 

NEG 

LD 



AF 

BC 

DE 

HL 

IX 

IY 

0A7FH 

HL 

IX 

B»6 

L.» (IX + 1) 

H»0 

HLiHL 

MVV010 

BC»3C00H 

HLjBC 

C, (IX+0) 

B,0 

HL.BC 

B> (IX+2) 

7,B 

DE.-40H 

Z , MVV020 

AiB 

B»A 



iSAVE REGISTERS 



;***GET PB LOC'N*** 
; TRANSFER TO IX 

ITERATION COUNT 
?GET LINE # 
!NOW IN HL 

;LINE# * 64 

5 LOOP 'TIL DONE 
; START OF SCREEN 
?FIND LOC OF LINE START 
;GET CHAR POSN (X) 
SNOW IN BC 
5FIND ACTUAL LOC'N 
5 GET LENGTH OF TRAVEL 
5TEST SIGN 

5 INCREMENT FOR NEXT DOT 
;GO IF UP 
; DOWN 

5FIND ABSOLUTE VALUE 
;BACK TO B FOR DJNZ 



I 
I 
I 



7F30 


114000 


00490 


LD 


DE»40H 


7F33 


36BF 


00500 MW020 


LD 


(HL) »0BFH 


7F35 


DD4E03 


00510 


LD 


C, < IX+3) 


7F38 


0D 


00520 MW030 


DEC 


C 


7F39 


FD2A0000 


00530 


LD 


IY) <0> 


7F3D 


FD2A0000 


00540 


LD 


IY) (0) 


7F41 


FD2A0000 


00550 


LD 


IY» (0) 


7F45 


FD2A0000 


00560 


LD 


IY» (0) 


7F49 


20ED 


00570 


JR 


NZ.MVV030 


7F4B 


3680 


00580 


LD 


(HL)»80H 


7F4D 


19 


00590 


ADD 


HL.DE 


7F4E 


10E3 


00600 


DJNZ 


MW020 


7F50 


FDE1 


00610 


POP 


IY 


7F52 


DDE1 


00620 


POP 


IX 


7F54 


El 


00630 


POP 


HL 


7F55 


Dl 


00640 


POP 


DE 


71-56 


CI 


00650 


POP 


BC 


7F57 


Fl 


00660 


POP 


AF 


7F58 


C9 


00670 


RET 




0000 




00680 


END 




00000 TOTAL ERRORS 







! INCREMENT FOR DOWN 

;SET CHAR POB TO ALL ON 
;GET DELAY COUNT 

5 DECREMENT COUNT 

; WASTE TIME 



5 DELAY LOOP 
? RESET CHAR POS 
; POINT TO NEXT POSITION 
5LOOP FOR LENGTH OF LINE 
; RESTORE REGISTERS 



; RETURN TO CALLING PROG 



MWERT DECIMAL VALUES 



245? 197 » 213. 229s 22 1» 229) 25 3 i 229, 205) 
105 229? 221? 225 » 6, 6, 221 » 110s 1> 38* 
05 41 , 16) 253s Is 5 60 5 9 ? 2215 78, 

05 65 05 95 221s 705 25 2035 1205 175 

1925 2555 405 7s 1205 237 » 685 71 » 17» 64 ? 
05 54s 191 5 221 5 785 35 135 253) 42) 05 
05 253) 425 05 05 253) 42) 05 0) 253) 
425 0) 0) 32) 237) 54) 1285 255 16» 227) 
2535 225) 221) 225) 225) 209) 193» 241) 201 



127 5 
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NECDRV: NEC SPSNWRITER DRIVER 



System Configuration 
Model I. 

Description 

NECDRV is a printer driver for the serial NEC Spinwriter Printer or similar type 
of serial printer. Previous to use, the SETCOM subroutine must have been run 
to initialize the RS-232-C interface to the proper baud rate and other serial 
parameters. The NECDRV subroutine outputs a single character to the serial 
printer with automatic line feed. The wiring configuration for the Spinwriter 
cabling is shown in the figure below. 



Input/Output Parameters 

On input, the L register contain 



On input, the L register contains the character to be printed. On output the 
character has been printed and all registers are unchanged. 
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INPUT 



OUTPUT 



H 


L 





CHARACTER 







-4- 



UNCHANGED 



Algorithm 

The NECDRV subroutine first gets the status from the RS-232-C controller 
holding register. If the transmitter holding register is not empty, the previous 
character has not been sent. If it is empty, the Clear to Send (CTS) line is 
checked. If there is a CTS, the character in HL is output. A test for a carriage 
return is then done. If the character is a carriage return, a line feed character is 
sent by a jump back to NEC010. 

Sample Calling Sequence 

NAME OF SUBROUTINE? NECDRV 
HL VALUE? 65 "A" 
PARAMETER BLOCK LOCATION? 
MEMORY BLOCK .1 LOCATION? 
MOVE SUBROUTINE TO? 37000 
SUBROUTINE EXECUTED AT 37000 
INPUT: OUTPUT: 

HL= 65 HL= 65 

NAME OF SUBROUTINE? 

Notes 

1. See the SETCOM subroutine for comments about setting up the RS-232-C 
interface. 

2. Baud rates of 110 to 1200 may be used. 
Program Listing 



TRS=80 
RS=232=C 

CABLE 



NEC CABLE 



TD 
RD 



SGND 
CTS 



TD 



RD 



TIE 
TOGETHER 



SGND 



SGND 

REVERSE 
CHANNEL 



NEC spinwriter connections. 



7F00 



00100 ORG 7F00H 5 0522 

001 10 ; ****#*##*##**###**#######*######*** ###1( .* # * ## * ### * ##4Hf#4< . # 

00120 5* NEC SPINWRITER DRIVER. ROUTINE FOR USING NEC SPIN- * 

00130 ;* WRITER WITH SERIAL OUTPUT. # 

00140 ?* INPUT: HL=CHARACTER TO BE PRINTED * 

00150 ;* OUTPUT: CHARACTER PRINTED ON SPINWRITER * 

00160 5####****###*#*#**######*###### # * ## * 4( . # *# # * ##############< . 

00170 ; 

146 



71-00 F5 00180 NECDRV PUSH AF 

7F01 CD7F0A 00190 CALL 0A7FH 

7F04 3AEA00 00200 NEC010 LD AiCBEAH) 

7F07 CB77 00210 BIT 6» A 

7F09 2BF9 00220 JR ZjNECBIB 

7F0B DBE8 00230 IN Am0E8H) 

7F0D CB7F 00240 BIT 7»A 

7F0F 28F3 00250 JR Z»NECBi0 

7F11 7D 00260 LD A?L 

7F12 D3EB 00270 OUT (0EBH)>A 

7F14 FE0D 00280 CP 0DH 

7F16 2004 00290 JR NZ » NEC090 

7F18 3E0A 00300 LD An0AH 

7F1A 18E8 00310 JR NEC010 

7F1C Fl 00320 NEC090 POP AF 

7FID C9 00330 RET 

0000 00340 END 

00000 TOTAL ERRORS 



;SAVE REGISTER 
5#*#GET CHARACTER*** 

?GET STATUS 

I TEST XMTR HOLDING RE6 

;GO IF NOT EMPTY 

;SET CLEAR TO SEND 

;TEST 

?SO IF NOT CTS 
;PUT CHARACTER IM A 
; OUTPUT CHARACTER 
5TEST FOR CR 
;GO IF NOT CR 
;LINE FEED 
; OUTPUT LF 
; RESTORE REGISTER 



NECDRV DECIMAL VALUES 



245. 205? 127s 10» 
249, 219, 232» 203 
254? 13) 32i 4? 62 



58; 234 s B» 203 i H9i 40 » 
i 127 5 40> 243! 125 5 21 1 5 
i 105 24) 232) 241? 201 



>35, 



CHKSUM= 102 



PRANDM: PSEUDO-RANDOM NUMBER GENERATOR 



System Configuration 

Model I, Model III, Model II Stand Alone. 

Description 

This subroutine returns a pseudo-random number in 32 bits. A pseudo-random 
number differs from a random number in that it is repeatable. If the same 
"seed" value is used, the same sequence of numbers as previously generated 
will be repeated. At the same time, the sequence of numbers will appear to be 
randomly distributed and can be utilized as random numbers for games, simu- 
lations, and modeling. 



Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The four 
bytes of the parameter block contain the seed, or starting value, of the pseudo- 
random number sequence. The seed value may not be zero. 

On output, the four bytes of the parameter block contain the next pseudo- 
random number in sequence. 



INPUT 



+ 



OUTPUT 
H L 



POINTER TO PARAM+0 



UNCHANGED 

1 
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PARAM+0 

+ 1 

+2 
+3 



16 MS BITS 
OF SEED 



16 LS BITS 
OF SEED 



PARAWH 



» 



16 MS BITS 
OF NEW 
VALUE 



16 LS BITS 
OF NEW 
VALUE 



Algorithm 

A pseudo-random number sequence with a relatively long cycle time can be 
generated by multiplying a 32-bit value by an odd power of 5. In this case, the 
third power of five is used to multiply the seed value by 125. 

The 32-bit seed is picked up from the parameter block and put into DE, HL. DE, 
HL is now added to itself three times in the PRA010 loop to multiply the original 
seed by 128. Next, the original seed value is put into BC. BC is then subtracted 
from DE, HL three times to produce a result that is the original number times 
125. This value is then stored back into the parameter block to be used as the 
new seed. 

Sample Calling Sequence 



NAME OF SUBROUTINE? PRANDM 

HL VALUE? 40000 

PARAMETER BLOCK LOCATION? 4000G 

PARAMETER BLOCK VALUES? 

- - - '-SEED = 00010001H 



I l}< 



+ 400 

MEMORY BLOCK i LOCATION? 
MOVE SUBROUTINE TO? 37000 
SUBROUTINE EXECUTED AT 37000 



INPUT: 




OUTPUT: 


HL= 40000 




HL= 40000 


PARAM+ 


1 


PARAM+ 125 


PARAM+ 1 





PARAM+ 1 


PARAM+ 2 


1 


PARAM+ 2 125 


PARAM+ 3 





PARAM+ 3 



NEW VALUE = 007D007DH 



NAME OF SUBROUTINE? 

Notes 

1. Initialize the seed value at the beginning of the sequence with a nonzero 
value. Thereafter, simply call PRANDM with the previous pseudo-random 
number in the parameter block. 

2. An initial seed of an odd number generates all odd numbers, an initial seed 
of an even number, even numbers. You may use only the most significant n bits 
of the 32 bits to obtain odd and even numbers. 

Program Listing 



7F00 



00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 



ORG 7F00H 5 0522 



GENERATES A PSEUDO- 



;* PSEUDO-RANDOM NUMBER ROUTINE 

I* RANDOM (REPEATABLE) NUMBER. 

5* INPUT: HL=> PARAMETER BLOCK 

?* PARAM+0, +1 = 16 MS BITS OF SEED 

?* PARAM+2»+3=16 LS BITS OF SEED 

5* OUTPUT:PARAM+0 5 +l=16 MS BITS OF NEW VALUE 

?* PA RAM+2 1+3=16 LS BITS OF NEW VALUE 

48 



00200 ; 



7F00 


F5 


00210 PRANDM 


PUSH 


AF 


7F01 


C5 


00220 


PUSH 


BC 


7F02 


D5 


00230 


PUSH 


DE 


7F03 


E5 


00240 


PUSH 


HL 


7K 04 


DDE5 


00250 


PUSH 


IX 


7F06 


CD7F0A 


00260 


CALL 


0A7FH 


7F09 


E5 


00270 


PUSH 


HL 


7F0A 


DDE1 


00280 


POP 


IX 


7F0C 


DD5E00 


00290 


LD 


E? < IX+0) 


7F0F 


DD5601 


00300 


LD 


D? <IX+1) 


7F12 


DD6E02 


00310 


LD 


L? (IX+2) 


7F15 


DD6603 


00320 


LD 


H? ( IX+3) 


7F18 


0607 


00330 


LD 


B?7 


7F1A 


29 


00340 PRA010 


ADD 


HL?HL 


7F1B 


EB 


00350 


EX 


DE?HL 


7FIC 


ED6A 


00360 


ADC 


HL?HL 


7F1E 


EB 


00370 


EX 


DE?HL 


7F1F 


10F9 


00380 


DJNZ 


PRA010 


7F21 


3E03 


00390 


LD 


A?3 


7F23 


DD4E02 


00400 PRA020 


LD 


C? (IX+2) 


7F26 


DD4603 


00410 


LD 


B» ( IX+3) 


7F29 


B7 


00420 


OR 


A 


7F2A 


ED42 


00430 


SBC 


HL?BG 


7F2C 


EB 


00440 


EX 


DE?HL 


7F2D 


DD4E00 


00450 


LD 


C? (IX+0) 


7F30 


DD4601 


00460 


LD 


B> ( IX + 1) 


7F33 


ED42 


00470 


SBC 


HL.BC 


7F35 


EB 


00480 


EX 


DEsHL 


7F36 


3D 


00490 


DEC 


A 


7F37 


20EA 


00500 


JR 


NZ? PRA020 


7F39 


DD7300 


00510 


LD 


<IX+0)?E 


7F3C 


DD7201 


00520 


LD 


(IX+l),D 


7F3F 


DD7502 


00530 


LD 


(IX+2)?L 


7F42 


DD7403 


00540 


LD 


(IX+3)?H 


7F45 


DDE1 


00550 


POP 


IX 


7F47 


El 


00560 


POP 


HL 


7F48 


Dl 


00570 


POP 


DE 


7F49 


ci 


00580 


POP 


BC 


7F4A 


Fl 


00590 


POP 


AF 


7F4B 


C9 


00600 


RET 




0000 




00610 


END 




00000 TOTAL 


ERRORS 







{SAVE REGISTERS 



5*#*GET PAR BL ADDR*** 
? TRANSFER TO IX 

;DE HOLDS MS SEED 

5HL HOLDS LS SEED 

5 FOR LOOP COUNT 

52 TIMES LS 16 BITS 

;MS NOW IN HL 

5 2 TIME MS 16 BITS 

57 TIMES=TIMES 12S 
; COUNT FOR SUBTRACT 

{GET LS 16 BITS OF SEED 

! RESET CARRY 
{SUBTRACT 

{SWAP 

{GET MS 16 BITS OF SEED 

{SUBTRACT 
{SWAP BACK 
5 3 TIMES=SEED*125 
5 GO IF NOT 3 
{ STORE NEW VALUE 



{RESTORE REGISTERS 



{RETURN 



PRANDM DECIMAL VALUES 



245? 197s 213> 229 » 221. 229? 205? 127? 10. 229 » 
221 » 225? 221 1 94» 05 221. 86? 1? 221. 110? 
2? 221 ? 102. 3. 6? 7? 41 > 235? 237? 106, 
235? 16, 249, 62? 3. 221. 78s 2* 221? 70? 
3? 183? 237? 66? 235? 221? 78? 0? 221? 70? 
1? 237? 66? 235? 61? 32? 234? 221? 115? 0? 
221? 114? 1? 221? 117? 2? 221? 116? 3? 221? 
225? 225? 209? 193? 241? 201 



CHKSUM= 229 



RANDOM: RANDOM NUMBER GENERATOR 



System Configuration 



Model I, Mode! Ill, Model II Stand Alone. 
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Description 

This subroutine returns a true random number of through 127, provided cer- 
tain conditions are met. If the subroutine is called at unpredictable intervals the 
number returned will be truly random. An example of this would be a CALL to 
RANDOM after a keypress from the TRS-80 keyboard. If RANDOM is called 
repetitively to generate 100 "random" numbers, however, the numbers gener- 
ated will not be random. It's very possible in this case that the number of 
microprocessor cycles between each CALL will be fixed, and that the resulting 
numbers will simply differ by a fixed amount. 

RANDOM generates random numbers by using the count in the R register. As R 
is used for refresh and is continually counting from through 127, the event 
that causes the CALL to random must be "asynchronous" compared to the Z-80 
timing and must occur over relatively long periods of time (hundreths of sec- 
onds). RANDOM is simply a means to use the asynchronous event to conven- 
iently generate a number from through 127. 

Input/Output Parameters 

There are no input parameters to RANDOM. 

On output, RANDOM returns the count in the R register in HL. H will be and 
L will be a value of through 127. 



INPUT 
H L 


=s 




OUTPUT 
H L 


NONE 

i qi 1 





#0-127 





Algorithm 

Obtaining the count from the R register can be compared to spinning a wheel 
that has 128 divisions numbered through 127. The wheel is stopped at ran- 
dom times to yield a true random number. 

R is incremented from through 127 to provide a refresh address for the TRS-80 
dynamic RAM. An increment occurs each "fetch" cycle of an instruction, 
which is either once or twice per instruction (some instructions have two fetch 
or M1 cycles). If a typical instruction takes 5 microseconds, R counts 200,000 
times per second, making the time between external events such as keypresses 
sufficiently large to generate true random numbers. 

Sample Calling Sequence 

NAME OF SUBROUTINE? RANDOM 

HL VALUE? 

PARAMETER BLOCK LOCATION? 

MEMORY BLOCK 1 LOCATION? 

MOVE SUBROUTINE TO? 38000 

SUBROUTINE EXECUTED AT 38000 

INPUT: OUTPUT : 

HL= HL= 16 RANDOM* 

NAME OF SUBROUTINE? 
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Notes 

1. To get a number in a range other than 0-127, subtract the range required 
from the value in HL until the number is less than the range required. If the 
number returned is 99, for example, and the number required is 0-9, then 
subtracting 10 until the result is less than 10 produces 9, a number in the range 
required. 



Program Listing 



7F00 



7F00 F5 
7F01 ED5F 
7F03 6F 
7F04 2600 
7F06 Fl 
7F07 C39A0A 
7F0A C9 
0000 
00000 TOTAL 



00100 
00110 
00 1 20 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
ERRORS 



ORG 7F00H 5 0520 

;* RANDOM NUMBER GENERATOR. GENERATES A TRUE RANDOM NUM-* 
5* BER PROVIDED CALLED AT ASYNCHRONOUS TIMES! * 

;# INPUT: NONE * 

-,* OUTPUT: RANDOM NUMBER 0-127 IN HL * 

.*##**#**♦******#**#♦**#********#************************ 

5 

RANDOM PUSH AF ;SAVE REGISTER 

LD A 5 R ?GET 0-127 FROM R 

LD L.A SNOW IN L 

LD H*0 5 NOW IN HL 

POP AF 5 RESTORE REGISTER 

JP 0A9AH ;*#*RETURN WITH ARG*** 

RET 5 NON-BASIC RETURN 

END 



RANDOM DECIMAL VALUES 



245> 237? 95* Ills 38 5 0» 241 » 195» 154? 10» 
201 



CHKSUM= 247 



RCRECD: READ CASSETTE RECORD 



System Configuration 
Model I, Model III. 

Description 

RCRECD reads a previously written record from cassette to memory. The 
VVCRECD subroutine must have been used to generate the cassette record. The 
record may be any number of bytes, from 1 to the limits of memory. The record 
is prefixed by a four-byte header that holds the starting address and number of 
bytes in the remainder of the record. The record is terminated by a checksum 
byte that is the additive checksum of all bytes in the record. Data in the record 
may represent any type of data the user desires; the record is read in as a "core 
image." 
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Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
two bytes of the parameter block are the starting address of the data to be read 
in, in standard Z-80 address format, least significant byte followed by most 
significant byte. If the starting address of the cassette record header is to be 
used, this parameter is 0. The next two bytes of the parameter block are re- 
served for the number of bytes value from the record header. The next byte is 
reserved for the checksum from the record header. 

On output, the contents of the parameter block is unchanged and the record 
has been read from cassette. PARAM+2,+ 3 contain the starting address of the 
data from tape, if this address was to be used. PARAM+4 contains the check- 
sum for the read operation. If this value is a zero, the tape data has been read 
correctly; otherwise, an invalid read of one or more cassette bytes has oc- 
curred. 



INPUT 



OUTPUT 







H L 






POINTER TO PARAM+0 

i 


PARA 


M+0 

+ 1 
+2 

+3 
+4 






STARTING ADD 

OR0IF 
USE TAPE ADD 




RESERVED 

FOR # 
OF BYTES 




RESERVED 
FOR CHECKSUM 





| 1 — i 

UNCHANGED 








M+0 

+ 1 


STARTING ADD 

- OR ADDRESS - 

FROM TAPE 




+2 

+3 


#OF 

- BYTES FROM - 

TAPE 




+4 


IF GOOD 
CHECKSUM 





Algorithm 

The RCRECD subroutine uses Level II or Level III ROM subroutines to perform 
the write. First, a CALL is made to212H to select cassette 0. Next, a call is made 
to 296H to bypass the leader and sync byte on the cassette. 

The four-byte header is next read from the cassette record. The number of bytes 
from the cassette record is saved in the parameter block. The starting address 
from the cassette record is saved if the starting address was zero. At this time 
also, the B register contains the checksum of the first four cassette bytes. 

The value from PARAM + 0, +1 (original starting address or starting address 
from cassette) is picked up at RCR020. The code from RCR030 on is a loop to 
read a cassette byte by a CALL to 235H, store the byte in memory via the HL 
pointer, increment the pointer and decrement the byte count, and checksum 
each byte. When DE has been decremented down to zero, the read of the body 
of the cassette record is done, and a final read is performed to pick up the 
checksum byte from the cassette. 

The checksum value in B is subtracted from the cassette checksum, and the 
result stored in the parameter block. The two should be equal, resulting in a 
difference of zero. Finally, a CALL to 1F8H is done to deselect the cassette. 
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Sample Calling Sequence 



NAME OF' SUBROUTINE? RCRECD 
HL VALUE? 40000 

BLOCK LOCATION? 40000 

BLOCK VALUES? 
USE TAPE ADDRESS 



PARAMETER 
PARAMETER 
+ 02 
+ 2 2 
+ 4 1 
+ 30 
MEMORY 



INITIALIZE FOR EXAMPLE 










BLOCK 1 LOCATION? 
MOVE SUBROUTINE TO? 37000 
SUBROUTINE EXECUTED AT 37000 



INPUT: 
HL= 40000 



OUTPUT: 
HL= 40000 



PARAM+ 
PARAM+ 
PARAM+ 
PARAM+ 
PARAM+ 











PARAM+ 
PARAM+ 
PARAM+ 
PARAM+ 
PARAM+ 





60 



4 





ADDRESS FROM TAPE (3C00H) 

-1024 BYTES 
CHECKSUM OK 



NAME OF SUBROUTINE? 

Notes 

1. This subroutine uses cassette only. 

2. For 500 baud tape operations, each 1000 bytes will take about 20 seconds. 

3. This subroutine does not save registers. 

Program Listing 



7F00 



7F00 
7F01 
7F02 
7F05 
7F0B 
7F0B 
7F0C 
7F0E 
7F10 
7F13 
7F14 
7F15 
7F18 
7F19 
7F1A 
7F1B 
7F1E 
7F1F 



F3 

AF 

CD 1202 

CD9602 

CD7F0A 

E5 

DDE1 

DDE5 

CD3502 

6F 

E5 

CD3502 

El 

67 

E5 

CD3502 

5F 

D5 



00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 



ORG 7F00H 5 0520 

;* READ RECORD FROM CASSETTE. READS RECORD PREVIOUSLY * 
5* WRITTEN BY WCRECD ROUTINE. 



INPUT: HL=> PARAMETER BLOCK 

PARAM+0>+l=STRTNG ADDR OR IF TAPE ADDRS 
PARAM+2»+3=RESERVED FOR NUMBER OF BYTES 
PARAM+4=RESERVED FOR CHECKSUM 

OUTPUT: PARAM+0 5 +l=STARTING ADDRESS? ORIG OR TAPE 
PARAM+2>+3=# OF BYTES FROM TAPE RECORD 
PARAM+4=CHECKSUM. IF VALID? ELSE NON-ZER 



;* 

;# 
!* 
5* 

;* 
;# 
;* 

; 
RCRECD 



DI 

XOR 

CALL 

CALL 

CALL 

PUSH 

POP 

PUSH 

CALL 

LD 

PUSH 

CALL 

POP 

LD 

PUSH 

CALL 

LD 

PUSH 



A 

212H 

296H 

0A7FH 

HL 

IX 

IX 

235H 

L»A 

HL 

235H 

HL 

H*A 

HL 

235 H 

E?A 

DE 



SDISABLE INTERRUPTS 
5 ZERO A 

5 SELECT CASSETTE 
5 BYPASS LEADER 
;**#GET PB LOC'N*## 
; TRANSFER TO IX 

5SAVE 

;GET START LSB 

;SAVE 

5GET START MSB 
! RESTORE LSB 
; MERGE MSB 

5GET # LSB 
5SAVE 
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7F20 CD3502 


00410 


CALL 


235H 


7F23 Di 


00420 


POP 


DE 


7F24 57 


00430 


LD 


D,A 


7F25 El 


00440 


POP 


HL 


7F26 DDE! 


00450 


POP 


IX 


7F2S 7A 


00460 


LD 


A,D 


7F29 83 


00470 


ADD 


A,E 


7F2A 84 


00480 


ADD 


A,H 


7F2B 85 


00490 


ADD 


A,L 


7F2C 47 


00500 


LD 


B.A 


7F2D DD7302 


00510 


LD 


UX+2),E 


7F30 DD7203 


00520 


LD 


( IX+3),D 


7F33 DD7E00 


00530 


LD 


A, UX+0) 


7F36 B7 


00540 


OR 


A 


7F37 2006 


00550 


JR 


NZ.RCR020 


7F39 DD7500 


00560 


LD 


<IX+0))L 


7F3C DD7401 


00570 


LD 


CIX+1),H 


7F3F DD6E00 


005S0 RCR020 


LD 


L, (IX+0) 


7F42 DD6601 


00590 


LD 


H, (IX+1) 


7F45 DDES 


00600 


PUSH 


IX 


7F47 C5 


00610 RCR030 


PUSH 


BC 


7F48 D5 


00620 


PUSH 


DE 


7F49 E5 


00630 


PUSH 


HL 


7F4A CD3502 


00640 


CALL 


235 H 


7F4D El 


00650 


POP 


HL 


7F4E Dl 


00660 


POP 


DE 


7F4F CI 


00670 


POP 


BC 


7F50 77 


00680 


LD 


<HL),A 


7F51 80 


00690 


ADD 


A.B 


7F52 47 


00700 


LD 


B.A 


7F53 23 


00710 


INC 


HL 


7F54 IB 


00720 


DEC 


DE 


7F55 7A 


00730 


LD 


A.D 


7F56 B3 


00740 


OR 


E 


7F57 20EE 


00750 


JR 


NZ, RCR030 


7F59 C5 


00760 


PUSH 


BC 


7F5A CD3502 


00770 


CALL 


235H 


7F5D CI 


00780 


POP 


BC 


7F5E DDE1 


00790 


POP 


IX 


7F60 90 


00800 


SUB 


B 


7F61 DD7704 


00810 


LD 


(IX+4),A 


7F64 CDF801 


00820 


CALL 


1FBH 


7F67 C9 


00830 


RET 




0000 


00840 


END 




00000 TOTAL ERRORS 







;GET # MSB 
5 RESTORE # 

; RESTORE STARTING ADDRESS 
; POINTER TO PAR BLOCK 
; INITIALIZE CHECKSUM 



5SAVE CHECKSUM 
5SAVE # OF BYTES 

;GET STARTING ADDRESS 
5 TEST FOR 

!GO IF USE ADDRESS IN PB 
5 STORE TAPE ADDRESS 

?GET STARTING ADDRESS 

5 SAVE POINTER 
5SAVE CHECKSUM 
5 SAVE ENDING ADDRESS 
;SAVE CURRENT LOCATION 
5READ NEXT BYTE 
; RESTORE POINTER 
; RESTORE ENDING LOC'N 
; RESTORE CHECKSUM 
5 STORE BYTE 
;ADD IN CHECKSUM 
;SAVE CHECKSUM 
5BUMP POINTER 
5 DECREMENT # OF BYTES 
5TEST FOR 

;GO IF NOT LAST BYTE 
5 SAVE CHECKSUM 
5READ CHECKSUM BYTE 
5 RESTORE CHECKSUM 
; RESTORE POINTER 
5TEST CHECKSUM 
; STORE FLAG 
5 DESELECT 
; RETURN TO CALLING PROG 



RCRECD DECIMAL VALUES 



243 j 175j 205> 
10 5 229, 221. 
229? 205? 53s 
95. 213» 205> 
122i 131i 132'! 



IBs 2, 205 » 150. 2, 205 j 127, 
225 i 221, 229 , 205, 53, 2, 111. 
2. 225. 103. 229. 205, 53 , 2? 
53. 2. 209. 87. 225. 221. 225, 

133, 71, 221, 115, 2. 221, 114, 



3, 221, 126, 0, 183, 32, 6, 221, 117, 0, 
221, 116, 1, 221, 110, 0, 221, 102, 1, 221, 
229, 197, 213, 229, 205, 53, 2, 225, 209, 193, 
119, 128, 71, 35, 27. 122, 179, 32, 238, 197, 
205, 53, 2, 193, 221, 225, 144, 221, 119, 4, 
205, 248. 1, 201 



CHKSUM= 185 



154 



RDCOMS: HEAD IS-232-C SWITCHES 



System Configuration 
Model I. 

Description 

RDCOMS reads the configuration of switches on the RS-232-C controller 
board. The configuration of the switches is analyzed and put into separate 
parameters. RDCOMS may be used to verify that the switches are set correctly 
without having to reopen the RS-232-C access and reset the switches. 



Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
six bytes of the parameter block are reserved for the results of the read. The 
last two bytes of the parameter block (PARAM+6,+ 7) hold the address of 
RDCOMS in standard Z-80 address format, least significant byte followed by 
most significant byte. This address can be obtained from the USR call address 
in BASIC or in the assembly-language CALL address. 

On output, the first two bytes of the parameter block contain the baud rate for 
which the RS-232-C interface is set, 110, 150, 300, 600, 1200, 2400, 4800, or 
9600. The next byte is set to a zero if parity is enabled, or to a one if parity is 
disabled. The next byte of the parameter block is set to a zero if one stop bit is 
used, or to a one if two stop bits are used. The next byte contains the number of 
bits in the RS-232-C transfer; is 5 bits, 1 is 7 bits, 2 is 6 bits, or 3 is 8 bits. The 
next byte contains a zero if odd parity is used, or a one if even parity is used. 



INPUT 



1 

POINTER TO PARAM+0 
i 








M+0 
+ 1 


RESERVED - 




+2 


RESERVED 




+3 


RESERVED 




+4 


RESERVED 




+5 


RESERVED 




+6 
+7 


ADDRESS 

OF 
RDCOMS 





PARAM+0 

+ 1 

+2 

_> + 3 



+5 
+6 
+7 



OUTPUT 

H I 

1 



UNCHANGED 



+ 



BAUD 
RATE 



0=PE, 1=PD 



0=1 STOP BIT 
1=2 STOP BITS 



0=5 BITS, 1=7 BITS' 
2=6 BITS, 3=8 BITS 



0=ODD PAR 

1=EVEN PAR 



-- UNCHANGED -- 
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Algorithm 

The SETCOM subroutine reads the switches and strips and aligns the fields into 
the proper format for the parameter block. 

First the switches are read by an "IN A,(0E9H)." Next, the parity type is 
obtained by a rotate left and an AND of 1 and stored in the parameter block. 
The switch byte is then rotated again two bits and an AND of 3 picks up the 
number of bits, which is stored in the parameter block. The switch byte is then 
rotated left and an AND of 1 picks up the number of stop bits, which is stored in 
the parameter block. The switch byte is then rotated left and an AND of 1 picks 
up the parity enable/disable bit, which is stored in the parameter block. The 
switch byte is then rotated left three times. An AND of 7 obtains the baud rate 
index. 

The baud rate index is put into HL and an ADD of HL to itself is done to 
multiply the index by two. The result is added to the location of RDCOMS and 
to the displacement of TABBD. HL now points to the TABBD entry, which is the 
baud rate corresponding to the switch code. This code is picked up from the 
table and stored in the parameter block. 



Sample Calling Sequence 



NAME OF SUBROUTINE? RDCOMS 




HL VALUE? 40000 




PARAMETER BLOCK LOCATION? 


40000 


PARAMETER BLOCK VALUES? 




+ 020 

+ 2 2 


-INITIALIZE FOR EXAMPLE 


+ 420 






+ 62 37890 START OF RDCOMS 


+ 800 




MEMORY BLOCK 1 LOCATION? 




MOVE SUBROUTINE TO? 37890 




SUBROUTINE EXECUTED AT 37890 


INPUT! OUTPUT! 




HL= 40000 HL= 40000 




PARAM+ PARAM+ 
PARAM+ i PARAM+ 1 


176 
4 


-1200 BAUD 


PARAM+ 2 PARAM+ 2 


PE 


PARAM+ 3 PARAM+ 3 


1 TWO STOP BITS 


PARAM+ 4 PARAM+ 4 


2 SIX BIT LENGTH 


PARAM+ 5 PARAM+ 5 


1 _ EVEN PARITY 


PARAM+ 6 2 
PARAM+ 7 148 


PARAM+ 6 
PARAM+ 7 


148_ 


-UNCHANGED 



NAME OF SUBROUTINE? 

Notes 

1. Note transposed order of number of bits. 
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Program Listing 



7F00 



7F00 
7F01 
7F02 
7F03 
7F04 
7F06 
7F09 
7F0A 
7F0C 
7F0E 
7F0F 
7F11 
7F12 
7F14 
7F17 
7F19 
7F1B 
7F1C 
7^ IE 
7F21 
7F23 
7F24 
7F26 
7F29 
7F2B 
7F2C 
7F2E 
7F31 
7F33 
7F35 
7F37 
7F38 
7F3A 
7F3B 
7F3D 
7F3E 
7F41 
7F44 
7F45 
7F48 
7F49 
7F4A 
7F4D 
7F4E 
7F4F 



F5 

C5 

D5 

E5 

DDES 

CD7F0A 

E5 

DDE1 

DBE9 

47 

CB00 

78 

E601 

DD7705 

CB00 

CB00 

78 

E603 

DD7704 

CB00 

78 

E601 

DD7703 

CB00 

78 

E601 

DD77B2 

CB00 

CB00 

CB00 

78 

E607 

6F 

2600 

29 

DD5E06 

DD5607 

19 

115900 

19 

7E 

DD7700 

23 

7E 

DD7701 



00100 

00110 

00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 
00560 
00570 
00580 
00590 
00600 
00610 
00620 
00630 
00640 
00650 
00660 
00670 
00680 
00690 
00700 
00710 



ORG 7F00H 5 0522 

5* READ RS-232-C SWITCHES. READS THE RS-232-C BOARD * 

;* SWITCHES. 

5* INPUT: HL=> PARAMETER BLOCK 

;* PARAM+0 ~ PARAM+5: SEE OUTPUT 

;* PARAM+6»+7s ADDRESS OF RDCOMS 

;* OUTPUT :HL=> PARAMETER BLOCK 

;* PARAM+0»+i=BAUD RATE - 1105 150; 300i 600? 

;* 120i 2400! 4800» 9600 

;# PARAM+2=0=PARITY ENABLED* 1=PARITY DISAB 

;# PARAM+3=0=ONE STOP BIT. l=TWO STOP BITS 

;* PARAM+4=0=5 BITS? 1=7 BITS? 2=6 BITS? 3=8 

;* BITS 

;* PARAM+5=0=ODD PARITY? 1=EVEN 

;*********#*****************#**************************** 



RDCOMS 



PUSH 

PUSH 

PUSH 

PUSH 

PUSH 

CALL 

PUSH 

POP 

IN 

LD 

RLC 

LD 

AND 

LD 

RLC 

RLC 

LD 

AND 

LD 

RLC 

LD 

AND 

LD 

RLC 

LD 

AND 

LD 

RLC 

RLC 

RLC 

LD 

AND 

LD 

LD 

ADD 

LD 

LD 

ADD 

LD 

ADD 

LD 

LD 

INC 

LD 

LD 



AF 

BC 

DE 

HL 

IX 

0A7FH 

HL 

IX 

A? (0E9H) 

BiA 

B 

A?B 

1 

<IX+5)iA 

B 

B 

A»B 

3 

UX+4)?A 

B 

A.B- 

1 

(IX+3)?A 

B 

A»B 

1 

<IX+2)?A 

B 

B 

B 

A?B 

7 

L?A 

H?0 

HL?HL 

E» <IX+6) 

D» (1X+7) 

HL»DE 

DE » TABBD 

HL»DE 

A? (HL) 

(IX+0)?A 

HL 

A? <HL) 

( IX+1 )iA 



5SAVE REGISTERS 



;#**GET PB LOC'N*** 
; TRANSFER TO IX 

5READ SWITCHES 
3 SAVE IN B 
; AL I SN 

;GET PARITY TYPE 
; STORE 
; ALIGN 



3 GET # 
? STORE 
5 ALIGN 

;GET # 
; STORE 
3ALIGN 



OF BITS 



OF STOP BITS 



5GET PARITY 
? STORE 
SALIGN 



ENAB/DIS 



3 GET BAUD INDEX 

5BAUD INDEX NOW IN L 

5NOW IN HL 

? INDEX *2 

; LOCATION OF RDCOMS 

3 INDEX PLUS BASE ADDRESS 

5BAUD RATE TABLE 

; INDEX + BASE + TABLE DIS 

3 GET TABLE ENTRY 

5 STORE 

; POINT TO NEXT BYTE 

;GET NEXT BYTE 

3 STORE 
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7F52 


DDE! 


00720 


POP 


IX 


7F54 


El 


00730 


POP 


HL 


7F55 


Di 


00740 


POP 


DE 


7K56 


CI 


00750 


POP 


BC 


7F57 


Fl 


00760 


POP 


AF 


7F5B 


C9 


00770 


RET 




0059 




00780 TABBD 


EQU 


*-RDCOMS 


7F59 


6E00 


00790 


DEFW 


110 


7F5B 


9600 


00B00 


DEFW 


150 


7F5D 


2C01 


008 10 


DEFW 


300 


7F5F 


5802 


00820 


DEFW 


600 


7F61 


B004 


00830 


DEFW 


1200 


7F63 


6009 


00840 


DEFW 


2400 


7F65 


C012 


00850 


DEFW 


4800 


7F67 


8025 


00860 


DEFW 


9600 


0000 




00870 


END 




00000 TOTAL 


ERRORS 







5 RESTORE REGISTERS 



5 RETURN TO CALLING PROG 
;BAUD RATE TABLE 



RDCOMS DECIMAL VALUES 



245? 197? 
221? 225 i 
221. 119? 
221. 119. 
3 1 203 » 1 
05 203? 0) 
0> 41> 221' 
89) 05 255 



213s 229 » 221 ! 229 » 205? 127 > 105 
2195 2335 71 > 203> 0! 1205 2305 1; 
5i 2035 05 203? B? 1205 2305 3? 
45 2035 05 120s 2305 1, 2215 119s 



2295 



1 20 5 230 5 1 » 221s 119» 2 » 203 5 

203. 05 1205 2305 75 111. 385 

94 5 65 221 5 865 7 5 25 » 17 » 

1265 221 > 1195 05 35 5 126. 221 : 



1195 I5 221 1 225. 225 1 209. 193» 241- 
05 1505 05 445 1, 88? 2'5 1765 4 5 96. 
9 5 1925 18» 12Bi 37 



201; 1105 



READDS: READ DISK SECTOR 



CHKSUM= 122 



System Configuration 
Model I. 

Description 

READDS reads one sector from a specified disk drive into a 256-byte user 
buffer. The user must know where a particular file is and what sectors are in- 
volved to utilize this subroutine; it is not a general-purpose "file manage" 
subroutine. 

Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
byte of the parameter block contains the disk drive number, to 3, corresponding 
to disk drives 1 through 4. The next byte of the parameter block contains the 
track number, through N. (The standard TRS-80 uses disk drives with 35 tracks; 
other drives are available for 40 tracks.) The next byte is the sector number, 
through N (0 through 9 will be the most common range). The next two bytes are 
the user buffer area for the read in standard Z-80 address format, least signifi- 
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cant byte followed by most significant byte. The next byte contains a zero if a 
wait is to occur until the disk drive motor is brought up to speed; the byte 
contains a 1 if the motor is running (disk operation has just been completed) 
and no wait is necessary. The next byte (PARAM+ 6) is reserved for the status of 
the disk read on output. 

On output, all parameters remain unchanged except for PARAM+6, which 
contains the status of the read. Status is for a successful read, or nonzero if an 
error occurred during any portion of the read. If an error did not occur, the 
specified disk sector has been read into the buffer area. 



INPUT 



H 



POINTER TO PARAM+0 



PARAM+0 


DRIVE # 0-3 


+ 1 


TRACK # 


+2 


SECTOR # 


+3 
+4 


BUFFER 
ADDRESS 
(MEM 1+0) 


+5 


0=WAIT 1=NO 
WAIT 


+6 


RESERVED 



MEM1+0 

+ 1 
+2 
+3 
+4 
+5 
+6 



RESERVED 
FOR 
READ 
DATA 







OUTPUT 








H L 




UNCHANGED 

l_ 1+ 1 


/ 


PARAM+0 


UNCHANGED 




+ 1 


UNCHANGED 




+2 


UNCHANGED 




\ 


+3 
+4 


- UNCHANGED - 




,> 




/ 




+5 


UNCHANGED 




+6 


0=NO ERROR 
5*0=ERROR 




MEM 1+0 






+ 1 






+2 
+4 


256 BYTES " 

OF 

SECTOR 

FROM 

DISK 




+5 










+6 




r 





Algorithm 

The disk drive number in L is first converted to the proper select configuration 
at REA010. The select byte is then output to disk memory-mapped address 
37E0H to select one of the disk drives. 

The wait bit is then examined. If this bit is a zero, the loop at REA015 counts HL 
through 65,536 counts to wait until the disk drive motor is up to speed before 
continuing. 

The disk status is then examined (REA020). If the disk is not busy, the track 
number is loaded into the disk controller track register (37EFH) and a seek 
command is given (37ECH) to cause the controller to "seek" the track for the 
operation. A series of time-wasting instructions is then done. 

The code at REA030 gets the disk status after completion of the seek and ANDs it 
with a "proper result" mask. If the status is normal, the read continues, other- 
wise an "abnormal" completion is done to REA09O. 
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The sector address from the parameter block is next output to the controller 
sector register (37EEH). Two time-wasting instructions are then done. 

A read command is then isued to the disk controller command register 
(37ECH). Further time-wasting instructions are done. 

The loop at REA040 performs the actual read of the disk sector. A total of 256 
separate reads is done. HL contains the disk address of 37ECH, DE contains a 
pointer to the buffer address, and BC contains the data register address of the 
disk controller. For each of the 256 reads, status is checked. If bit is set, all 256 
bytes have been read. If bit 1 of the status is set, the disk controller is still busy 
and a loop back to REA040 is done. If bit 1 of the status is not set the next byte is 
read, stored in memory, and the memory buffer pointer incremented. 

At the automatic (by the controller) termination of the read, status is again read, 
and an AND of 1 CH is done to check for the proper completion bits. The status 
is stored back into the parameter block. 



Sample Calling Sequence 



NAME OF SUBROUTINE? READDS 

HL VALUE? 40000 

PARAMETER BLOCK LOCATION? 40000 

PARAMETER BLOCK VALUES? 



+ 010 


DRIVE 




+ 1 1 17 


TRACK 17 


+ 2 1 


SECTOR 


+ 3 2 45000 


BUFFER 


+ 510 


WAIT 


+ 610 




+ 700 




MEMORY BLOCK 1 


LOCATION? 


MOVE SUBROUTINE TO? 38000 


SUBROUTINE EXECUTED AT 38000 


INPUT: 


OUTPUT: 


HL= 40000 


HL= 40000 


PARAM+ 


PARAM+ 




PARAM+ 1 17 


PARAM+ 1 17 




PARAM+ 2 


PARAM+ 2 


-UNCHANGED 


PARAM+ 3 200 


PARAM+ 3 200 




PARAM+ 4 175 


PARAM+ 4 175 




PARAM+ 5 


PARAM+ 5 0^ 




PARAM+ 6 


PARAM+ 6 


STATUS = OK 



NAME OF SUBROUTINE? 



Notes 



1. Always perform an RESTDS operation before doing initial disk I/O to reset 
the disk controller. 
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Program Listing 



7P 00 



7F00 

7F01 

7FB2 

7F03 

7F04 

7F06 

7F09 

7F0A 

7F0C 

7F0F 

7F10 

7F11 

7F13 

7F14 

7F16 

7F19 

7F1C 

7F1D 

7F1F 

7F22 

7F23 

7F24 

7F25 

7F27 

7F2A 

7F2C 

7F2E 

7F31 

7F34 

7F35 

7F36 

7F3S 

7F3B 

7F3C 

7F3D 

7F3E 

7F3F 

7F42 

7F44 

7F46 

7F4S 

7F4A 

7F4D 

7F50 

7F51 

7F52 

7F55 



F5 

C5 

D5 

E5 

DDES 

CD7F0A 

E5 

DDE1 

DD7EB0 

3C 

47 

3E80 

07 

10FD 

32E037 

DD7E05 

B7 

2008 

210000 

2B 

7D 

B4 

20FB 

3AEC37 

CB47 

20F9 

DD7E01 

32EF37 

C5 

ci 

3E17 

32EC37 

C5 

CI 

C5 

Ci 

3AEC37 

CB47 

20F9 

E698 

202 C 

DD7E02 

32EE37 

C5 

CI 

21EC37 

DD5E03 



00 100 

00110 

00120 

00130 

00140 

00150 

00160 

00170 

00 1 80 

00190 

00200 

00210 

00220 

00230 

00240 

00250 

00260 

00270 

00280 

00290 

00300 

00310 

00320 

00330 

00340 

00350 

00,360 

00370 

00380 

00390 

00400 

00410 

00420 

00430 

00440 

00450 

00460 

00470 

00480 

00490 

00500 

00510 

00520 

00530 

00540 

00550 

00560 

0057B 

00580 

00590 

00600 

00610 

00620 

00630 

00640 

00650 

00660 

00670 

00680 

00690 

00700 

00710 



ORG 7F0BH 5 0522 

;# READ DISK SECTOR. READS SPECIFIED TRACK, SECTOR INTO * 
;* MEMORY BUFFER. 



INPUT: HL=> PARAMETER BLOCK 

PARAM+0=DRIVE #> - 3 

PARAM+1=TRACK #. - N 

PARAM+2=SECT0R #> - N 

PARAM+3 5 +4=BUFFER ADDRESS 

PARAH+5=0=WAIT AFTER SELECT! l=NO WAIT 

PARAM+6=RESERVED FOR STATUS 
OUTPUT: TRACK, SECTOR READ INTO BUhFER 

PARAM+6=STATUS» B=OKi 1=BAD 



. *****#************************************************** 



; 

READDS PUSH 
PUSH 
PUSH 
PUSH 
PUSH 
CALL 
PUSH 
POP 
LD 
INC 
LD 
LD 
REA010 RLCA 
DJNZ 
LD 
LD 
OR 
JR 
LD 
REA015 DEC 
LD 
OR 
JR 
REA020 LD 
BIT 
JR 
LD 
LD 

PUSH 
POP 
LD 
LD 
PUSH 
POP 
PUSH 
POP 
REA030 LD 
BIT 
JR 
AND 
JR 
LD 
LD 
PUSH 
POP 
LD 
LD 



AF 

BC 

DE 

HL 

IX 

0A7FH 

HL 

IX 

A? ( IX+0) 

A 

Bi A 

A,80H 

REA010 
<37E0H)»A 

Ai (IX+5) 
A 

NZ?REA020 
HL.B 

HL 

A»L 

H 

NZ*REA015 

A , (37ECH) 

ChA 

NZ? REA020 

A 5 (IX+1) 

( 37EFH ) 5 A 

BC 

BC 

A» 17H 

C37ECH)iA 

BC 

BC 

BC 

BC 

A» (37ECH) 

? A 

NZ> REA030 

98H 

NZ» REA090 

A> ( IX+2) 

(37EEH)f A 

BC 

BC 

HL»37ECH 

E, ( IX+3) 



5SAVE REGISTERS 



;*#*GET PB LOC'N*** 
; TRANSFER TO IX 

;GET DRIVE # 
5 INCREMENT BY ONE 
;PUT IN B FOR CONVERT 
5 MASK 

; ALIGN FOR SELECT 

; CONVERT TO ADDRESS 
; SELECT DRIVE 
•GET WAIT/NO WAIT 
;TEST 

;GO IF NO WAIT 
;WAIT COUNT 

; DELAY LOOP 6 

5TEST DONE 4 

54 

;LOOP UNTIL HL=0 7/12 

;GET STATUS 

;TEST BUSY 

5LOOP IF BUSY 
5GET TRACK NUMBER 
," OUTPUT TRACK # 
; WASTE TIME 

;SEEK COMMAND 
; OUTPUT 

; WASTE TIME 



;GET STATUS 

;TEST BUSY 

SLOOP IF BUSY 
5TEST FOR NORMAL COMPL 
;GO IF ABNORMAL 
;GET SECTOR # 
; OUT PUT 
; WASTE TIME 

;DISK ADDRESS 

;PUT BUFFER ADDRESS IN DE 
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7F58 


DD5604 


00720 


LD 


D? (IX+4) 




7F5B 


3ESC 


00738 


LD 


A?8CH 


;READ COMMAND 


7F5D 


77 


00740 


LD 


<HL)»A 


; OUTPUT 


7F5E 


C5 


00750 


PUSH 


BC 


; WASTE TIME 


7F5F 


CI 


00760 


POP 


BC 




7F60 


C5 


00770 


PUSH 


BC 




7F61 


CI 


00780 


POP 


BC 




7F62 


01EF37 


00790 


LD 


BC37EFH 


5DATA REG ADDRESS 


7F65 


7E 


00800 REA040 


LD 


A» (HL) 


5 GET STATUS 


7F66 


0F 


00810 


RRCA 




? AL I GN 


7F67 


3008 


00820 


JR 


NC, REA050 


;GO IF DONE 


7F69 


0F 


00830 


RRCA 




; AL I GN 


7F6A 


30F9 


00840 


JR 


NCREA040 


5 GO IF NOT DRQ 


7F6C 


0A 


00850 


LD 


A! (BC) 


;GET BYTE 


7F6D 


12 


00860 


LD 


(DE),A 


5 STORE IN MEMORY 


7F6E 


13 


00870 


INC 


DE 


; INCREMENT MEMORY PNTR 


7F6F 


1SF4 


00880 


JR 


REA040 


;LOOP TIL DONE 


7F71 


3AEC37 


00890 REA050 


LD 


A* (37ECH) 


;GET STATUS 


7F74 


E61C 


00900 


AND 


1CH 


5 CHECK FOR PROPER STATUS 


7F76 


DD7706 


00910 REA090 


LD 


( IX+6>?A 


; STORE STATUS 


7F79 


DDE1 


00920 


POP 


IX 


; RESTORE REGISTERS 


7F7B 


El 


00930 


p p 


HL 




7F7C 


Dl 


00940 


POP 


DE 




7F7D 


CI 


00950 


POP 


BC 




7F7E 


Fl 


00960 


POP 


AF 




7F7F 


C9 


00970 


RET 




; RETURN TO CALLING PROG 


0000 

0000P 


TOTAL 


00980 
ERRORS 


END 







RE ADDS DECIMAL VALUES 



245s 197) 21 3 » 229 ? 221 ? 229? 205 ? 127» 


10? 


221) 225? 221 ? 126) 0? 60, 71 ? 62? 128> 


7? 


16? 253? 50? 224? 55? 221? 126? 5? 183? 


32 ? 


8? 33? 0? 0? 43? 125? 180? 32? 251? 58? 




236? 55? 203? 71? 32? 249? 221? 126? 1? 


50? 


239? 55? 197? 193? 62? 23? 50? 236? 55? 


197? 


193? 197? 193? 58? 236? 55? 203? 71? 32 


> 249 


230? 152? 32? 44? 221? 126? 2? 50? 238? 


55? 


197? 193? 33? 236? 55? 221? 94? 3? 221? 


86? 


4? 62? 140, 119? 197, 193? 197, 193? 1? 


239? 


55? 126? 15? 48? 8? 15? 49? 249? 10? 18 




19? 24? 244, 58? 236? 55? 230? 28? 221? 


119? 


6? 221? 225? 225? 209? 193? 241? 201 




CHKSUM= 12 





?29? 



RESTDS: RESTORE DISK 



System Configuration 
Mode! I. 

Description 

RESTDS performs a restore operation on disk drive 1 through 4. The disk drive 
head is moved over track 0. RESTDS is an "initialization" procedure for 
READDS and WRDSEC to reset the disk to a known configuration. 

Input/Output Parameters 

On input, the L register contains the drive number of the disk drive to be used, 
through 3 (corresponding to drives 1 through 4). The H register is set to if a 
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"wait after select" is to be clone, or to a 1 if "no wait" is to occur. The wait is 

used if no current disk operation is taking place and the disk drive motor is not 

spinning. 

On output, the disk head is restored over track 0. If the operation is successful, 

HL is returned with a zero result. If a disk error has occurred, HL is returned 

with a nonzero result. 



INPUT 


\ 


OUTPUT 


H L 


H L 

-) 1 


0=WAIT, 
1=N0 WAIT 


DRIVE #,0-3 


0=OK, # 0=ERROR 




L _+ ■ -l 



Algorithm 

The disk drive number in L is first converted to the proper select configuration 

at RES010. The select byte is then output to disk memory-mapped address 

37E0H to select one of the disk drives. 

The wait bit is then examined. If this bit is a zero, the loop at RES015 counts HL 

through 65,536 counts to wait until the disk drive motor is up to speed before 

continuing. 

The disk status is then examined (RES020). If the disk is not busy, a restore 

command (3) is sent to the disk controller command register at address 37ECH. 

A series of time-wasting instructions is then done. 

The code at RES030 gets the disk status after completion of the restore, ANDs it 

with a "proper result" mask, and returns the status in HL. 

Sample Calling Sequence 

NAME OF SUBROUTINE? RESTDS 
HL VALUE? WAIT, DRIVES 
PARAMETER BLOCK LOCATION? 
MEMORY BLOCK 1 LOCATION? 
MOVE SUBROUTINE TO? 38000 
SUBROUTINE EXECUTED AT 3B000 
INPUT: OUTPUT: 

HL= HL= STATUS = OK 

NAME OF SUBROUTINE? 
Program Listing 
7P00 00100 ORG 7F00H 5 0522 

001 l ; ##*#####**###*###*************************************** 

00120 ;* RESTORE DISK. PERFORMS A RESTORE OPERATION ON DISK. * 

00130 !* INPUT: H=0 IF WAIT AFTER SELECT, 1 IF NO WAIT * 

00140 ;* L=DRIVE NUMBER. 0-3 * 

00150 !* OUTPUT:HL=0 FOR OK. OB FOR ERROR * 

00160 ; **#####*#*###**##**#************************************ 
00170 ; 

7F00 F5 00180 RESTDS PUSH AF ?SAVE REGISTERS 

7F01 C5 00190 PUSH BC 

7F02 CD7F0A 00200 CALL 0A7FH ;***GET DRIVE #*** 

7F05 7D 00210 LD A»L ; PUT IN A 

7F06 3C 00220 INC A ? INCREMENT BY ONE 
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7F07 47 


00230 


LD 


BiA 


7F0S 3E80 


00240 


LD 


A.80H 


7F0A 07 


00250 RES010 


RLCA 




7F0B 10FD 


00260 


BJNZ 


RES010 


7F0D 32E037 


00270 


LD 


(37E0H),A 


7F10 7C 


00280 


LD 


A»H 


7F11 B7 


00290 


OR 


A 


7F12 2008 


00300 


JR 


NZ?RES020 


7F14 210000 


00310 


LD 


HL?0 


7F17 2B 


00320 REB015 


DEC 


HL 


7F1S 7D 


00330 


LD 


AsL 


7F19 B4 


00340 


OR 


H 


7F1A 20FB 


00350 


JR 


NZ?RES015 


7F1C 3AEC37 


00360 RES020 


LD 


A? (37ECH) 


7F1F CB47 


00370 


BIT 


0?A 


7F21 20F9 


00380 


JR 


NZ»RES020 


7F23 3E03 


00390 


LD 


A. 3 


7F25 32EC37 


00400 


LD 


<37ECH)sA 


7F28 C5 


00410 


PUSH 


BC 


7F29 CI 


00420 


POP 


BC 


7F2A C5 


00430 


PUSH 


BC 


7F2B CI 


00440 


POP 


BC 


7F2C 3AEC37 


00450 RES030 


LD 


A? <37ECH) 


7F2F CB47 


00460 


BIT 


0?A 


7F31 20F9 


00470 


JR 


NZ,RES030 


7F33 E69B 


00480 


AND 


98H 


7F35 6F 


00490 


LD 


L»A 


7F36 2600 


00500 


LD 


H?0 


7F3B CI 


00510 


POP 


BC 


7F39 Fi 


00520 


POP 


AF 


7F3A C39A0A 


00530 


JP 


0A9AH 


7F3D C9 


00540 


RET 




0000 


00550 


END 




00000 TOTAL 


ERRORS 







;NOW IN B 

5 MASK FOR CONVERSION 

5 CONVERT TO ADDRESS 

SLOOP 'TIL DONE 
5SELECT DRIVE 
5GET WAIT/NO WAIT 
5TEST 

;GO IF NO WAIT 
5WAIT COUNT 

5 DELAY LOOP 6 

5TEST DONE 4 

!4 

5 LOOP UNTIL HL=0 7/12 

;GET STATUS 

5TEST BUSY 

?GO IF BUSY 
; RESTORE COMMAND 
5 OUTPUT TO DISK 
5 WASTE TIME 



5 GET STATUS 

5TEST BUSY 

5GO IF BUSY 
5TEST STATUS 
SNOW IN A 
SNOW IN HL 
? RESTORE REGISTERS 

;**#RETURN STATUS### 
5 NON-BASIC RETURN 



RESTDS DECIMAL VALUES 



245) 197, 205! 127? 10? 125» 60, 71, 62? 128, 
7? 16? 253. 50 5 224? 55? 124? 183? 32? 8s 
33? 0? 0? 43? 125? 180? 32? 251? 58s 236? 
55? 203? 71? 32? 249? 62? 3? 50? 236? 55? 
197? 193? 197s 193s 58? 236? 55? 203? 71? 32? 
249? 230? 152? 111? 38? 0, 193, 241, 195, 154? 
10? 201 



CHKSUM= 197 
RKNOWT: READ KEYBOARD WITH NO WAIT 

System Configuration 
Model I, Model III. 



Description 

RKNOWT reads the keyboard and returns immediately after scanning all keys 
to determine if a keypress has occurred. If a keypress has occurred, the subrou- 
tine returns with the key code; if no keypress has occurred, the subroutine 
returns with 0. The key position is converted to a code from a user-specified 
table of codes. Normally, these codes would be the ASCII codes for the keys on 
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the keyboard, but the user may substitute his own codes for special key func- 
tions. Both upper- and lower-case keys are translated, and all keys are read 
including BREAK, CLEAR, up arrow, down arrow, right arrow, and left arrow. 

Input/Output Parameters 

On input, the HL register pair contains the address of RKNOWT. This address is 

the same as the USR location in BASIC or the address in the assembly-language 

call. It is used to make all of the code in RKNOWT relocatable. 

On output, HL contains the keycode if a key was pressed, or if no key was 

detected. 



INPUT 



OUTPUT 



ADDRESS OF RKNOWT 



-t- 



=> 



H 


L 





CHARACTER 
CODE OR 



ROW0 



Algorithm 

The basic problem in RKNOWT is to detect if a key is being pressed, and if it 
is, to convert its row-column coordinates into an index to a table to obtain the 
key code. 

The table is at RKNTAB. RKNTAB is a 120-byte table that contains all the trans- 
lation codes for the keys. The row arrangement is determined by the electrical 
connections to the keys, shown below. The first 56 bytes of the table represent 
keys with no SHIFT. There is a "gap" of 8 unused bytes to simplify coding, and 
then 56 additional bytes that represent keys with a SHIFT. 



Keyboard layout and codes. 
BIT 



@ 


A 


B 


C 


D 


E 


F 


G 


H 


I 


J 


K 


L 


M 


N 





P 


Q 


R 


S 


T 


U 


V 


W 


X 


Y 


Z 















I 
1 


2 


# 
3 


$ 
4 


% 

5 


& 
6 


7 


( 
8 


) 
9 


B 


+ 


< 


= 


> 


? 

/ 


ENTER 


CLEAR 


BREAK 


T 


i 


- 


- 


SPACE 


SHIFT 

















RKNOWT/RKWAiT 

HEXADECIMAL TABLE VALUES 

FOR STANDARD ASCII 



40,41,42,43,44,45,46,47 



48,49,4A,4B,4C,4D,4E,4F 



50,51,52,53,54,55,56,57 



x 
co 

O 



(GAPS 



I 
CO 



58,59,5A,0,0,0,0,0 



30.31.32.33.34,35,36,37 



38,39,3A,3B,2C,2D,2E,2F 



0D,2F,01,5B,5C,5D,5E,20 



20,61,62,63,64,65,66,67 

68,69,6A,6B,6C,6D,6E,6F 

70,71,72,73,74,75,76,77 

78,79,7A,0,0,0,0,0 

20,21,22,23,24,25,26,27 

28,29,2A,2B,3C,3D,3E,3F 

0D,2F,01,5B,5C,5D,5E,20 
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The loop at RKN030 scans the seven rows of the keyboard and looks for a 
keypress in a row. The address of row is 3801 H, and this is initially put 
into HL. If no key is found in rowO, the L portion of the address is shifted left to 
.produce an address in HL of 3802H. This process is repeated for the additional 
rows until all seven rows have been scanned, as evidenced by a one bit in bit 7 
of L. if no key has been found (A register is a zero), a return with HL equal to 
zero is made at RKN090. 

If any row is nonzero when read, RKN040 is entered. At this point, the row 
address of 3801 H, 3802H, 3804H, etc., is in HL; the code at RKN050 converts 
this row address to a row number to 7 times 8. This "index" of 0, 8, 16, 24, 32, 
40, or 48 is saved. 

The A register contains the column bits for the row. One column bit (or more 
for multiple key presses) is a one. The code at RKN070 converts the column bit 
into a column number of 7 to 0. This column number is then added to ROW*8. 

Next, the SHIFT key is read by "LD A,(3880H)." The shift key bit is aligned and 
merged with COL+ ROW*8 to produce an index of SHIFT*64+ ROW*8+ COL. 
This index is then added to the start of RKNOWT and the displacement of the 
code table, RKNTAB, to point to a location within the table corresponding 
to the key pressed. The code just prior to RKN090 accesses the code table to 
pick up the proper code for the key that has been pressed. If multiple keys in 
the same row have been pressed, the rightmost key is detected and the others 
ignored. 

Sample Calling Sequence 

NAME OF SUE'. ROUTINE? RKNOWT 

HL VALUE? 36788 ADDRESS OF RKNOWT 

PARAMETER BLOCK LOCATION? 

MEMORY BLOCK 1 LOCATION? 

MOVE SUBROUTINE TO? 36788 

SUBROUTINE EXECUTED AT 36788 

INPUT: OUTPUT: 

HL. .= 36788 HL= NO KEY PRESSED 

NAME OF SUBROUTINE? 

Notes 

1. The eight bytes between lower and upper case may contain any values. 

2. The calling program must "time out" keyboard debounce. 

Program Listing 

7F00 00100 ORG 7F00H 5 0522 

001 10 5 ######*#######**###**#######**##**#####**##*##########* # 

00120 !* READ KEYBOARD NO WAIT. READS KEYBOARD AND RETURNS * 

00130 S* WITH NO WAIT. * 

00140 ;# INPUT: HL=> ADDRESS OF RKWAIT * 

00150 I* OUTPUT !HL=CHARACTER READ OR IF NO KEY PRESSED * 

00160 ;#######*#*#######**#############*#*####*#*#####*##»##### 

00170 ; 
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I 
I 
I 



7F00 


F5 


00180 


RKNOWT 


PUSH 


AF 


7F01 


C5 


00190 




PUSH 


BC 


7F02 


DDES 


00200 




PUSH 


IX 


7F04 


CD7F0A 


00210 




CALL 


0A7FH 


7F07 


E5 


00220 




PUSH 


HL 


7F08 


DDE1 


00230 




POP 


IX 


7F0A 


210138 


00240 


RKN020 


LD 


HL?3801H 


7F0D 


7E 


00250 


RKN030 


LD 


A, (HL) 


7F0E 


B7 


00260 




OR 


A 


7F0F 


200B 


00270 




JR 


NZ?RKN040 


7F11 


CB25 


00280 




SLA 


L 


7F13 


CB7D 


00290 




BIT 


7?L 


7FI5 


2SF6 


00300 




JR 


Z s RKN030 


7F17 


210000 


00310 




LD 


HL»0 


7F1A 


1828 


00320 




JR 


RKN090 


7F1C 


4F 


00330 


RKN040 


LD 


C,A 


7F1D 


AF 


00340 




XOR 


A 


7F1E 


CB3D 


00350 


RKN050 


SRL 


L 


7F20 


3804 


00360 




JR 


C?RKN060 


7F22 


C608 


00370 




ADD 


A?8 


7F24 


18F8 


00380 




JR 


RKN050 


7F26 


06FF 


00390 


RKN060 


LD 


S?0FFH 


7F28 


04 


00400 


RKN070 


INC 


B 


7F29 


CB39 


00410 




SRL 


C 


7F2B 


30FB 


00420 




JR 


NC?RKN070 


7F2D 


80 


00430 




ADD 


A.B 


7F2E 


4F 


00440 




LD 


C?A 


7F2F 


3A8038 


00450 




LD 


A? (3880H) 


7F32 


0F 


00460 




RRCA 




7F33 


0F 


00470 




RRCA 




7F34 


81 


00480 




ADD 


A»C 


7F35 


4F 


00490 




LD 


C?A 


7F36 


0600 


00500 




LD 


B»0 


7F38 


DD09 


00510 




ADD 


IXiBC 


7h3A 


014C00 


00520 




LD 


BC 5 RKNTAB 


7F3D 


DD09 


00530 




ADD 


IX?BC 


7F3F 


DD6E00 


00540 




LD 


L» CIX+0) 


7F42 


2600 


00550 




LD 


H?0 


7F44 


DDE1 


00560 


RKN090 


POP 


IX 


7F46 


CI 


00570 




POP 


BC 


7F47 


Fl 


00580 




POP 


AF 


7F48 


C39A0A 


00590 




JP 


0A9AH 


7F4B 


C9 


00600 




RET 




004C 




00610 


RKNTAB 


ESU 


$-RKNOWT 


0008 




00620 




DEFS 


8 


0008 




00630 




DEFS 


8 


0008 




00640 




DEFS 


8 


0008 




00650 




DEFS 


8 


0008 




00660 




DEFS 


8 


0008 




00670 




DEFS 


8 


0008 




00680 




DEFS 


8 


0008 




00690 




DEFS 


8 


0008 




00700 




DEFS 


8 


0008 




00710 




DEFS 


8 


0008 




00720 




DEFS 


8 


0008 




00730 




DEFS 


8 


0008 




00740 




DEFS 


8 


0008 




00750 




DEFS 


8 


0008 




00760 




DEFS 


8 


0000 




00770 




END 




00000 TOTAL 


ERRORS 









5SAVE REGISTERS 



S##*GET BASE ADDRESS*** 
; TRANSFER TO IX 

; ADDRESS OF FIRST ROW 
?SET NEXT ROW 
I TEST FOR KEY 
!GO IF KEY PRESS 
5 GET NEXT ROW ADDRESS 
I TEST FOR LAST ADDR 
;GO IF NOT LAST 
;0 FOR NO KEY 
;GO TO RETURN 
5SAVE COLUMN BITS 
5 CLEAR COUNT 

5 SHI FT OUT ROW ADDRESS 

5 GO IF ONE BIT FOUND 

;R0W*8 

SLOOP TIL DONE 
INITIALIZE COUNT 

5FIND COLUMN BIT 

5 SHI FT OUT COLUMNS 

SLOOP "TIL FOUND 
5 R0W*8+C0L 
SNOW IN C 
;GET SHIFT BIT 
SNOW IN BIT 7 
;NOW IN BIT 6 
5SHIFT*64+ROW#8+COL 
; INDEX TO C 
SNOW IN BC 
5 BASE PLUS INDEX 
; TRANSLATION TABLE 
SBASE+INDEX+DISPL 
5 GET CHARACTER 
SNOW IN HL 
5 RESTORE REGISTERS 



;**#RETURN WITH ARGUMENT*** 
5 NON-BASIC RETURN 
TRANSLATION TABLE 
NO SHIFT ROW 

1 

2 

3 

4 

5 

6 



NOT USED 
SHIFT ROW 





1 
2 
3 
4 
5 
6 



RKNOWT DECIMAL VALUES 



245? 197? 221? 229? 205 
33) Is 56* 126* 183? 32 
125? 40? 246? 33? 0s 0? 



127? 10? 229 ? 22 1 : 
i 11? 203? 37? 203? 
24? 40? 79? 175? 



225? 
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203 » 61 » 56, 4, 19Si 8s 24? 248, 6, 255, 
4. 203. 57, 48, 251, 128, 79, 58, 128, 56, 
15, 15, 129, 79, 6, 0, 221, 9, Is 76, 
0, 221 1 9, 221, 110, 0, 38, 0, 221, 225, 
193, 241, 195, 154, 10, 201 



CHKSUH= 29 



RKWAiT: READ KEYBOARD AND WAIT 



System Configuration 
Model I, Model III. 

Description 

RKWAIT reads the keyboard and returns after a key has been pressed. The key 
position is converted to a code from a user-specified table of codes. Normally, 
these codes would be the ASCII codes for the keys on the keyboard, but the 
user may substitute his own codes for special key functions. Both upper- and 
lower-case keys are translated, and all keys are read including BREAK, CLEAR, 
up arrow, down arrow, right arrow, and left arrow. 



Input/Output Parameters 

On input, the HL register pair contains the address of RKWAIT. This address is 
the same as the USR location in BASIC or the address in the assembly-language 
call. It is used to make all the code in RKWAIT relocatable. 

On output, HL contains the keycode. 



INPUT 



ADDRESS OF RKWAIT 



OUTPUT 
H . L 






CHARACTER 
CODE 



Algorithm 

The basic problem in RKWAIT is to detect if a key is being pressed and if it is, 
to convert its row column coordinates into an index to a table to obtain the key 
code. 

The table is at RKWTAB. RKWTAB is a 120-byte table that contains all the 
translation codes for the keys. The row arrangement is determined by the elec- 
trical connections to the keys, shown below. The first 56 bytes of the table 
represent keys with no SHIFT. There is a "gap" of 8 unused bytes to simplify 
coding, and then 56 additional bytes that represent keys with a SHIFT. 
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I 
I 
I 
I 



ROW0 



1 



BIT 
3 4 5 6 



@ 


A 


B 


C 


D 


E 


F 


G 


H 


I 


J 


K 


L 


M 


N 





P 


Q 


R 


S 


T 


U 


V 


W 


X 


Y 


Z 















! 
1 


2 


3 


$ 
4 


% 
5 


& 
6 


7 


( 
8 


! 
9 




+ 


< 


= 


> 


? 

/ 


ENTER 


CLEAR 


BREAK 


T 


1 


- 


- 


SPACE 


SHIFT 

















Keyboard layout and codes. 



RKNOWT/RKWAIT 

HEXADECIMAL TABLE VALUES 

FOR STANDARD ASCII 



40,41,42,43,44,45,46,47 



48,49,4A,4B,4C,4D,4E,4F 



50,51,52,53,54,55,56,57 



t 

x 



(GAP) 



St 
I 

03 



58,59,5A,0,0,0,0,0 



30,31,32.33,34,35,36,37 



38,39,3A,3B,2C,2D,2E,2F 



0D,2F,01,5B,5C,5D,5E,20 



0,0,0,0,0,0,0,0 



20,61,62,63,64,65,66,67 

68,69,6A,6B,6C,6D,6E,6F 

70,71,72,73,74,75,76,77 

78,79,7A,0,0,0,0,0 

20,21,22,23,24,25,26,27 

28,29,2A,2B,3C,3D,3E,3F 

0D,2F,01,5B,5C,5D,5E,20 



The loop at RKW030 scans the seven rows of the keyboard and looks for a 
keypress in a row. The address of row is 3801 H, and this is initially put 
into HL. If no key is found in row 0, the L portion of the address is shifted left to 
produce an address in HL of 3802H. This process is repeated for the additional 
rows until all seven rows have been scanned, as evidenced by a one bit in bit 7 
of L. If no key has been found after seven rows, a loop is made back to RKW02Q 
to repeat the scan. 

If any row is nonzero when read, RKN040 is entered. At this point, the row 
address of 3801 H, 3802 H, 3804H, etc., is in HL; the code at RKVV050 converts 
this row address to a row number of to 7 times 8. This "index" of 0, 8, 1 6, 24, 
32, 40, or 48 is saved. 

The A register contains the column bits for the row. One (or more for multiple 
key presses) is a one. The code at RKN070 converts the column bit into a 
column number of 7 to 0. This column number is then added to ROW*8. 

Next, the SHIFT key is read by "LD A,(3880H)." The shift key bit is aligned and 
merged with COL+ RQW*8 to produce an index of SHIFT*64+ ROW*8+ COL. 

At this point a "denounce delay" of 50 milliseconds is performed. This ensures 
that the key is not reread if RKWAIT is reentered immediately by the calling 
program. 

The index is then added to the start of RKWAIT and the displacement of the 
code table, RKWTAB, to point to a location within the table corresponding to 
the key pressed. The code just prior to RKW090 accesses the code table to pick 
up the proper code for the key that has been pressed. If multiple keys in the 
same row have been pressed, the rightmost key is detected and the others 
ignored. 
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Sample Calling Sequence 



NAME OF SUBROUTINE? RKWAIT 

HL VALUE? 38000 ADDRESS OF RKWAIT 

PARAMETER BLOCK LOCATION? 

MEMORY BLOCK 1 LOCATION? 

MOVE SUBROUTINE TO? 38000 

SUBROUTINE EXECUTED AT 3B000 

INPUT: OUTPUT: 

HL= 38000 HL= 65 "A" KEY, NO SHIFT 



NAME OF SUBROUTINE? 



Notes 

1. The eight bytes between lower and upper case may contain any values, 

2. The debounce delay may be adjusted as required. A 50 millisecond delay 
is about 20 characters per second or 240 words per minute. Change locations 
7F33H and 7F34H to alter the debounce delay. 

Program Listing 



7F00 



7F00 

7F01 

7F02 

7F04 

7F07 

7F08 

7F0A 

7F0D 

7F0E 

7F0F 

7FH 

7F13 

7F15 

7F17 

7F19 

7F1A 

7F1B 

7F1D 

7F1F 

7F21 

71 23 

7F25 

7F26 

7F28 

7F2A 
7F2B 
7F2C 
7F2F 
7F30 
7F31 
7F32 
7F35 



F5 

C5 

DDE5 

CD7F0A 

E5 

DDE1 

210138 

7E 

B7 

2008 

CB25 

CB7D 

28F6 

18F1 

4F 

AF 

CB3D 

3804 

C60B 

18F8 

06FF 

04 

CB39 

30FB 

80 
4F 

3A8038 

0F 

0F 

81 

21100F 

01FFFF 



00100 

00110 

00120 

00130 

00140 

00150 

00160 

00170 

00180 

00190 

00200 

00210 

00220 

00230 

00240 

00250 

00260 

00270 

00280 

00290 

00300 

00310 

00320 

00330 

00340 

00350 

00360 

00370 

00380 

00390 

00400 

00410 

00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 



ORG 7F00H 5 0522 

?* READ KEYBOARD AND WAIT. READS KEYBOARD AND WAITS * 

5* UNTIL KEY PRESS. * 

5* INPUT: HL=> ADDRESS OF RKWAIT * 

;* OUTPUT !HL=CHARACTER READ * 



RKWAIT 



RKW020 
RKW030 



RKW040 
RKW050 



RKW060 
RKW070 



PUSH 

PUSH 

PUSH 

CALL 

PUSH 

POP 

LD 

LD 

OR 

JR 

SLA 

BIT 

JR 

JR 

LD 

XOR 

SRL 

JR 

ADD 

JR 

LD 

INC 

SRL 

JR 

ADD 

LD 

LD 

RRCA 

RRCA 

ADD 

LD 

LD 



AF 

BC 

IX 

0A7FH 

HL 

IX 

HL»3801H 

A! <HL) 

A 

NZ?RKW040 

L 

7,L 

I » RKW030 

RKW020 

C» A 

A 

L 

C»RKW060 

A*8 

RKW050 

BiBFFH 

B 
C 
HC, RKW070 

A»B 

C 5 A 

A, (3880H) 



A»C 
HL.3856 

BO-1 



5SAVE REGISTERS 



;#**GET BASE 
? TRANSFER TO 



ADDRESS*** 
IX 



? ADDRESS OF FIRST ROW 
;SET NEXT ROW 
STEST FOR KEY 
?GO IF KEY PRESS 
5 6ET NEXT ROW ADDRESS 
5 TEST FOR LAST ADDR 
5GO IF NOT LAST 
; LAST-LOOP 'TIL KEY 
5SAVE COLUMN BITS 
5 CLEAR COUNT 

; SHI FT OUT ROW ADDRESS 

!GO IF ONE BIT FOUND 

; R0W*8 

5LOOP TIL DONE 

UNITIALIZE COUNT 
5 FIND COLUMN BIT 
5 SHIFT OUT COLUMNS 
SLOOP 'TIL FOUND 

;R0W*8+C0L 
5N0W IN C 
5GET SHIFT BIT 
?NOW IN BIT 7 
SNOW IN BIT 6 
;SHIFT*64+R0W*8+C0L 
5 DELAY COUNT (50 MS) 
5 DECREMENT VALUE 
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7F38 


09 


00500 RKW080 


ADD 


HL»BC 


7F39 


38FD 


00510 


JR 


C.RKW080 


7F3B 


4F 


00520 


LD 


C,A 


7F3C 


0600 


00530 


LD 


B.0 


7F3E 


DD09 


00540 


ADD 


IX.BC 


7F40 


015200 


00550 


LD 


BC, RKWTAB 


7F43 


DD09 


00560 


ADD 


IXiBC 


7F45 


DD6E00 


00570 


LD 


L, (IX+0) 


7F48 


2600 


00580 


LD 


H.0 


7F4A 


DDE1 


00590 


POP 


IX 


7F4C 


Ci 


00600 


POP 


BC 


7F4D 


Fl 


00610 


POP 


AF 


7F4E 


C39A0A 


00620 


JP 


0A9AH 


7F51 


C9 


00630 


RET 




0052 




00640 RKWTAB 


EGU 


*-RKWAIT 


0008 




00650 


DEFS 


8 


0008 




00660 


DEFS 


8 


0008 




00670 


DEFS 


8 


0t*08 




00680 


DEFS 


8 


0008 




00690 


DEFS 


8 


0008 




00700 


DEFS 


8 


0008 




00710 


DEFS 


8 


0008 




00720 


DEFS 


8 


0008 




00730 


DEFS 


8 


0008 




00740 


DEFS 


8 


0008 




00750 


DEFS 


8 


0008 




00760 


DEFS 


8 


0008 




00770 


DEFS 


8 


0008 




00780 


DEFS 


8 


0008 




00790 


DEFS 


8 


0000 




00800 


END 




00000 TOTAL 


ERRORS 







5 DELAY FOR BOUNCE 11 
5LOOP 'TIL HL NEG 7/12 

; INDEX TO C 

SNOW IN BC 

5BASE PLUS INDEX 

! TRANSLATION TABLE 

5BASE+INDEX+DISPL 

;GET CHARACTER 

5 NOW IN HL 

; RESTORE REGISTERS 



;***RETURN WITH ARGUMENT*** 
; NON-BASIC RETURN 
5 TRANSLATION TABLE 
;NO SHIFT ROW 



5 


1 


; 


2 


; 


3 


; 


4 


; 


5 


; 


6 


;NOT USED 




; SHI FT ROW 





; 


1 


; 


3 


; 


3 


; 


4 


5 


5 


5 


6 



RKWAIT DECIMAL VALUES 



245, 197. 221* 229, 205 , 127, 10, 229, 221s 225 i 

33i li 56, 126> 183? 32s 8, 203? 37, 203 » 

125. 40. 246. 24. 241. 79. 175. 203. 61. 56. 

4. 198. 8. 24, 248. 6. 255. 4. 203. 57. 

48. 251. 128. 79. 58. 128. 56, 15. 15. 129, 

33. 16. 15. 1, 255, 255, 9, 56, 253, 79, 

6 , , 22 1 , 9 ? 1 , 82 , 0. 22 1 » 9 . 22 1 i 

110. 0. 38, 0. 221. 225, 193. 241, 195, 154, 

10, 201 



CHKSUM= 69 



SCDOWN: SCROLL SCREEN DOWN 



System Configuration 
Model I, Model III. 

Description 

SCDOWN scrolls the video display down one line. Scrolling down causes lines 
1 through 15 to be moved up into line positions through 14. Scrolling can be 
used in displaying text or data that cannot be displayed in the 1024 bytes of one 
video screen. 
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I 

When scrolling down, line 15 is blanked in preparation for displaying the next 



line "below" the screen. 



Input/Output Parameters 



! 



There are no input or output parameters. A call to SCDOWN simply causes a 
scroll down of one line, with a return to the calling program immediately fol- 
lowing. 



INPUT 


\ 


OUTPUT 


H L 


H L 


NONE 

1 


1 
UNCHANGED 

I 





Algorithm 

Scrolling is easily and efficiently handled by use of the Z-80 "block move" 
instructions. The LDIR moves a block of data from one area of memory to 
another, transferring the data "beginning to end" (lower-valued memory loca- 
tions to higher-valued memory locations) of each block, one byte at a time. 

The LDIR automatically transfers video memory bytes to locations 64 bytes 
"down" in memory. A total of 960 bytes are transferred as the first line "disap- 
pears." 

After the transfer, the last line has been moved up to the second to last line, but 
still remains on the bottom of the screen. This line is "blanked" by a fill of 64 
bytes of blank characters at SCD010. 

Sample Calling Sequence 

NAME OF SUBROUTINE? SCDOWN 
HL VALUE? 

PARAMETER BLOCK LOCATION? 
MEMORY BLOCK i LOCATION? 
MOVE SUBROUTINE TO? 36666 
SUBROUTINE EXECUTED AT 36666 
INPUT: OUTPUT: 

NAME OF SUBROUTINE? 
Program Listing 

7F00 00100 ORS 7F00H 5 0522 

001 10 ; #*#*#####*###*##*#■»##*###########*«■*###*#*■«■####**###«■■»■## 

00120 ;* SCROLL SCREEN DOWN. SCROLLS SCREEN DOWN ONE LINE. * 

00130 !* INPUT: NONE * 

00140 ?* OUTPUT:SCREEN SCROLLED DOWN # 

00150 ;#######*###########*#####################*#####*######*«- 

00160 ; 

7F00 F5 00170 SCDOWN PUSH AF ; SAVE REGISTERS 

7F01 C5 00180 PUSH BC 

7F02 D5 00190 PUSH DE 

7F03 E5 00200 PUSH HL 

7F04 21403C 00210 LD HLs3C40H ? SOURCE 
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I 



7F07 11 003 C 00220 LD DE.3C00H 

7F0A 01C003 00230 LD BC.960 

7F0D EDB0 00240 LDIR 

7F0F 21C03F 00250 LD HL.3FC0H 

7F12 3E20 00260 LD A. ' ' 

7F14 0640 00270 LD B.64 

7F.16 77 00280 SCD010 LD (HL).A 

7F17 23 00290 INC HL 

7F1S 10FC 00300 DJNZ SCD010 

7F1A El 00310 POP HL 

7F1B Dl 00320 POP DE 

7F1C CI 00330 POP BC 

7F1D Fl 00340 POP AF 

7F1E C9 00350 RET 

0000 00360 END 

00000 TOTAL ERRORS 



? DESTINATION 
!# OF BYTES 

; SCROLL 
5L1NE TO BE BLANKED 
JLOAD BLANK CHARACTER 
;64 CHARACTERS ON LINE 

5 STORE BLANK IN LINE 

5BUMP POINTER 

SLOOP IF NOT DONE 
; RESTORE REGISTERS 



; RETURN 



SCDOWN DECIMAL VALUES 



245) 197. 213? 229. 33. 
1. 192. 3. 237. 176. 33 
6. 64. 119. 35. 16. 252 
201 



64. 60. 17? 0. 60. 
192. 63. 62. 32. 
225. 209. 193. 24 1< 



CHKSUM= 86 



SCUSCR: SCROLL SCREEN UP 



System Configuration 
Model I, Model III. 

Description 

SCUSCR scrolls the video display up one line. Scrolling up causes lines 
through 14 to be moved down into line positions 1 through 15. Scrolling can be 
used in displaying text or data that cannot be displayed in the 1024 bytes of one 
video screen. 

When scrolling up, lineO is blanked in preparation for displaying the next line 
"above" the screen. 



Input/Output Parameters 

There are no input or output parameters. A call to SCUSCR simply causes 
a scroll up of one line, with a return to the calling program immediately fol- 
lowing. 



INPUT 
H L 



OUTPUT 



+ 



NONE 



1 

UNCHANGED 
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Algorithm 

Scrolling is easily and efficiently handled by use of the Z-80 "block move" 
instructions. The LDDR moves a block of data from one area of memory to 
another, transferring the data "end to beginning" (higher-valued memory loca- 
tions to lower-valued memory locations) of each block, one byte at a time. 

The LDDR automatically transfers video memory bytes to locations 64 bytes 
"up" in memory. A total of 960 bytes are transferred as the last line "disap- 
pears." 

After the transfer, the first line has been moved down to the second line, but 
still remains on the top of the screen. This line is "blanked" by a fill of 64 bytes 
of blank characters at SCU010. 



Sample Calling Sequence 

NAME OF SUBROUTINE? SCUSCR 
HL VALUE? 

PARAMETER BLOCK LOCATION? 
MEMORY BLOCK 1 LOCATION? 
MOVE SUBROUTINE TO? 41111 
SUBROUTINE EXECUTED AT 41111 
INPUTS OUTPUT: 



NAME OF SUBROUTINE? 



Program Listing 



7F00 



7F00 
7F01 
7F02 
7F03 
7F04 
7F07 
7F0A 
7F0D 
7F0F 
7F12 
7F14 
7F16 
7F17 
7F18 
7F1A 
7F1B 
7F1C 
7F1D 
7F1E 
0000 
00000 



F5 

C5 

D5 

E5 

21S03F 

11C03F 

01C003 

EDB8 

21 003 C 

3E20 

0640 

77 

23 

10FC 

El 

Dl 

CI 

Fl 

C9 

TOTAL 



00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
ERRORS 



ORG 7F00H 5 0522 

5* SCROLL SCREEN UP. SCROLLS SCREEN UP ONE LINE. # 

5* INPUT: NONE * 

5* OUTPUT: SCREEN SCROLLED UP # 



SCUSCR 



SCU010 



PUSH 
PUSH 

PUSH 

PUSH 

LD 

LD 

LD 

LDDR 

LD 

LD 

LD 

LD 

INC 

DJNZ 

POP 

POP 

POP 

POP 

RET 

END 



AF 

BC 

DE 

HL 

HL 5 3F80H 

DE,3FC0H 

BC>960 

HL,3C00H 
A»' ' 
B>64 

( HL ) , A 

HL 

SCU010 

HL, 

DE 

BC 

AF 



;SAVE REGISTERS 



5 SOURCE 

? DESTINATION 

5# OF BYTES 

; SCROLL 
5 LINE TO BE BLANKED 
5 LOAD BLANK CHARACTER 
5 64 CHARACTERS ON LINE 

; STORE BLANK IN LINE 

5 BUMP POINTER 

SLOOP IF NOT DONE 
; RESTORE REGISTERS 



! RETURN 
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I 
I 
I 



SCUSCR DECIMAL VALUES 



245? 197? 213? 229? 33s 128? 63s 17? 192? 63? 

i» 192s 3? 237? 184? 33? 0? 60? 62? 32? 

6? 64? 119? 35? 16? 252? 225? 209? 193? 241? 

201 



CHKSUM= 161 

SDASO: SCREEN DUMP TO PRINTER IN ASCII 

Configuration 
Model I, Model III. 



Description 

SDASC1 dumps the contents of the video display to the system line printer. 
SDASCI may be called at any time to record the contents of the screen. ASCII 
characters are printed as they appear on the screen. Graphics characters are 
printed as a period. The system line printer must be able to print 64 character 
positions across. The screen is printed as 16 lines of 64 characters. 

Input/Output Parameters 

There are no input parameters. The screen contents are printed and a return to 
the calling program is done. 

INPUT OUTPUT 

H L H , L 



NONE 



UNCHANGED 

1 



Algorithm 

The HL register pair holds the current screen location starting from 3C00H, the 
screen start. The B register is used to hold the number of characters per line, 64. 
It is decremented down to zero so that a carriage return at the end of line can 
be made to the system line printer. 

There are two loops. The main loop starts at SDA005. The inner loop handles 
each screen line and starts at SDA010. For each new line, the line character 
count of 64 is placed into the B register at SDA005. 

In the SDA010 loop, a character is loaded into A from the next character posi- 
tion. Bit 7 of the character is tested. If this bit is a one, a period is substituted for 
the graphics character. If the character is not a graphics character (SDA020), a 
20H is subtracted from the character and bit 7 is tested. If bit 7 is set, the value 
of the character is less than 20H, and 40H is added to compensate for the lower 
case option. The character is then saved in the stack while a status check is 
made of the line printer. 
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The code at SDA050 checks line printer status. When the line printer is ready, 
the character is popped from the stack and printed. The HL pointer is then 
incremented by one, and the line character count in B decremented. It B is 
zero, a carriage return is output to the line printer for the end of the line by a 
jump back to SDA040. 

SDA060 tests for a condition of -1 in the B register. If this is true, a carriage 
return has just been output, and a test is made for HL = 4000H, which marks the 
end of the dump. If H is not equal to 40H, a jump is made back to SDA005 to 
output the next line. If there is not a -1 in B at SDA060, the current line is still 
being processed and a jump is made back to SDA010 for the next character in 
the line. 

Sample Calling Sequence 

NAME OF SUBROUTINE? SDASCI 

HL VALUE? 

PARAMETER BLOCK LOCATION? 

MEMORY BLOCK 1 LOCATION? 

MOVE SUBROUTINE TO? 40000 

TRS-80 ASSEMBLY LANGUAGE SUBROUTINES EXERCISER 



NAME OF SUBROUTINE? SDASCI 

HL VALUE? 

PARAMETER BLOCK LOCATION? 

MEMORY BLOCK 1 LOCATION? 

MOVE SUBROUTINE TO 

? 40000 



■16SCREEN LINES 



SUBROUTINE EXECUTED AT 
INPUT: OUTPUT: 



40000 



NAME OF SUBROUTINE? 



Notes 



1. If this subroutine is used for the Model III, make the following change in 
the listing: Substitute "OUT (0F8H),A" for "LD (37E8HLA". Replace the corre- 
sponding decimal values of "50, 232, 55" with decimal values of "21 1 , 248, 0". 

Program Listing 



71-00 



00100 ORG 7F00H 5 0520 

001 i ; #######*###♦#*#*####*#*#«■*####*######**#«■#####*##*#*#### 

00120 ?* SCREEN DUMP TO PRINTER. CAUSES CONTENTS OF SCREEN TO # 

00130 !* BE DUMPED TO THE SYSTEM LINE PRINTER. GRAPHICS ARE * 

00140 !* PRINTED AS A PERIOD. * 

00150 5* INPUT: NONE * 

00160 ;* OUTPUTsSCREEN CONTENTS PRINTED # 

001 70 5 #####*#«■##################*#######*####*######*##*###### 

00180 ; 



176 



7F00 


F5 


00190 


SDASCI 


PUSH 


AF 


5 SAVE REGISTERS 


7F01 


C5 


00200 




PUSH 


BC 




7F02 


E5 


00210 




PUSH 


HL 




7F03 


21003C 


00220 




LD 


HL,3C00H 


; SCREEN START ADDRESS 


7F06 


0640 


00230 


SDA005 


LD 


B,64 


;# OF CHARACTERS/LINE 


7F08 


7E 


00240 


SDA010 


LD 


A; (HL) 


?GET NEXT SCREEN BYTE 


7F09 


CB7F 


00250 




BIT 


7»A 


?TEST FOR GRAPHICS 


7F0B 


2804 


00260 




JR 


Z , SDA020 


5 GO IF GRAPHICS BYTE 


7F0D 


3E2E 


00270 




LD 


A» '. ' 


? PERIOD FOR GRAPHICS 


7F0F 


180A 


00280 




JR 


SDA040 


?GO TO PRINT 


1\ 1 1 


D620 


00290 


SDA020 


SUB 


20H 


;TEST FOR CONTROL 


7F13 


CB7F 


00300 




BIT 


7, A 


? CONTROL IF SET 


7F15 


2802 


00310 




JR 


Z.SDA030 


5 GO IF NOT LT 20H 


7F17 


C640 


00320 




ADD 


A*40H 


5 ADJUST FOR CONTROL 


7F19 


C620 


00330 


SDA030 


ADD 


A,20H 


? RESTORE FOR SUB 


7F1B 


F5 


00340 


SDA040 


PUSH 


AF 


5 SAVE CHARACTER 


7F1C 


3AE837 


00350 


SDA050 


LD 


A, (37E8H) 


5GET PRINTER STATUS 


7F1F 


E6F0 


00360 




AND 


0F0H 


?MASK OUT UNUSED BITS 


7F21 


FE30 


00370 




CP 


30H 


5 TEST STATUS 


7F23 


20F7 


00380 




JR 


NZ,SDA050 


;GO IF BUSY 


7F25 


Fl 


00390 




POP 


AF 


S RESTORE CHARACTER 


7F26 


32E837 


00400 




LD 


<37E8H),A 


5 PRINT CHARACTER 


7F29 


23 


00410 




INC 


HL 


IBUMP SCREEN POINTER 


7F2A 


05 


00420 




DEC 


B 


? DECREMENT CHAR CNT 


7F2B 


78 


00430 




LD 


A»B 


5 GET COUNT 


7F2C 


B7 


00440 




OR 


A 


ITEST 


7F2D 


2004 


00450 




JR 


NZ,SDA060 


?GO IF NOT 


7F2F 


3E0D 


00460 




LD 


A,13 


SEND OF LINE 


7F31 


18E8 


00470 




JR 


SDA040 


S OUTPUT CR 


7F33 


FEFF 


00480 


SDA060 


CP 


0FFH 


;TEST FOR -1 


71- 35 


20D1 


00490 




JR 


NZ,SDA010 


?STILL IN LINE 


7F37 


2B 


00500 




DEC 


HL 


5ADJUST FOR FALSE INC 


7^8 


7C 


00510 




LD 


A,H 


5JUST PRINTED CR 


7F39 


FE40 


00520 




CP 


40H 


?AT END OF SCREEN? 


71- 3B 


20C9 


00530 




JR 


NZ,SDA005 


;go IF NO 


7F3D 


El 


00540 




POP 


HL 


5 RESTORE REGISTERS 


7F3E 


CI 


00550 




POP 


BC 




7F3F 


Fl 


00560 




POP 


AF 




7F40 


C9 


00570 




RET 




! RETURN TO CALLING PROG 


0000 




00580 




END 






00000 TOTAL 


ERRORS 











SDASCI DECIMAL VALUES 



245? 197s 229. 33 » B, 60 , 6, 64, 126, 203 » 
127. 40! 4, 62, 46, 24, 10, 214? 32, 203, 
127, 40, 2, 198, 64, 198, 32, 245, 58, 232, 
55, 230, 240, 254, 48, 32, 247, 241, 50, 23i 
55^ 35, 5, 120, 183, 32, 4, 62, 13, 24, 
232, 254, 255, 32, 209, 43, 124, 254, 64, 3; 
201, 225, 193, 241, 201 



CHKSUM= 163 



SDGRAP: SCREEN DUMP TO PRINTER IN GRAPHICS 



Configuration 
Model I, Model III. 

Description 

SDGRAP dumps the contents of the video display to the system line printer. 
SDGRAP may be called at any time to record the contents of the screen. Graph- 



177 



ics characters are printed as they appear on the screen by an "O." ASCII char- 
acters are not printed. The system line printer must be able to print 128 charac- 
ter positions across. The screen is printed as 48 rows of 128 pixels. 

Input/Output Parameters 

There are no input parameters. The screen contents are printed and a return to 
the calling program is done. 



INPUT 
H L 


=^ 


OUTPUT 
H L 


NONE 

- 1 


1 
UNCHANGED 

i 



Algorithm 

The SDGRAP subroutine uses an internal print subroutine at SDG050. This 
subroutine first tests the current character position contents in the A register for 
graphics. If the current contents are nongraphics (ASCII), a blank character is 
used for the print; if the current contents are graphics, an "O" is used for the 
print. The blank or "O" is then saved in the stack. 

Next in the print subroutine, a test is made for printer status. The code at 
SDC060 loops until the printer is not busy. When the printer is ready, the blank 
or "O" character is output. The print subroutine then adjusts a "bit mask" in 
the B register. This mask represents the current bit position in the character 
position being tested. Each graphics character has six bit positions, bits 5 
through 0. The bit mask is shifted left one bit to mask the next bit position. 
Finally, the print subroutine tests for the return point. There are three return 
points. If bits 0, 2, or 4 have just been printed, a return is made to SDC030. If 
bits 1, 3, or 5 have just been printed, a return is made to SDG035. If neither of 
these conditions is present (B equals zero), a carriage return has just been 
printed and a return is made to SDG040. The normal subroutine structure is not 
used so that all code in SDGRAP can be relocatable. 

The main code in SDGRAP uses three loops. The outermost loop (SDG010) 
handles character positions, in sets of three graphics rows. The next innermost 
loop handles the three rows within each character position. The innermost 
loop handles each row of graphics bits. 

Each set of three rows (one I ine) starts off with the mask bit in B set for pixel 0. 
The character is picked up via the pointer in HL. SDG050 is called to output the 
first pixel. The B mask is now set to pixel 1 . SDG050 is again called for pixel 1 . 
Next, (SDG035), the line pointer in HL, is bumped, and the bit mask is shifted 
back to the right two bit positions. For the first row, B would now hold 1 . Now a 
test is made of HL. If HL is not at the end of line, the next character is picked up 
and pixels and 1 printed. If HL is at the end of line, a carriage return is 
printed by a call to SDG050, and the bit mask in B is shifted left two bit po- 
sitions. If the first row had just been printed, B would now contain a 4. HL is 
now adjusted to point back to the beginning of the line by adding —64. If the 
next row is still within a character position, a loop back to SDG012 prints the 
next row. 



178 



if the next row starts a new line, the pointer in HL is bumped by 64 to point to 
the next line of three rows. A test is made for HL = 4000H, signifying that all 
rows have been printed. If this is not the case, a jump is made back to SDG010 
to print the next set of three rows. 

Sample Calling Sequence 

NAME OF SUBROUTINE? SDGRAP 
HL VALUE? 

PARAMETER BLOCK LOCATION? 
MEMORY BLOCK 1 LOCATION? 
MOVE SUBROUTINE TO? 38888 



-48 SCREEN ROWS 



SUBROUTINE EXECUTED AT 38888 
INPUT: OUTPUT: 



NAME OF SUBROUTINE? 
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Notes 

1. ASCII characters on the screen are ignored, but will not cause erroneous 
results. 

2. The dimensions of the printout on many printers will be 12.8 inches hori- 
zontal by 8 inches vertical, which will be approximately the "aspect ratio" of 
the screen. 

3. If this subroutine is used for the Model III, make the following change in 
the listing: Substitute "OUT (0F8H),A" for "LD (37E8H),A." Replace the corre- 
sponding decimal values of "50, 232, 55" with decimal values of "21 1 , 248, 0." 

Program Listing 



7F00 



7F00 

7F01 

7F02 

7F03 

7F04 

7F07 

7F09 

7F0A 

7F0B 

7F0C 

7F0E 

7F0F 

7F11 

7F12 

7F14 

7F16 

7F17 

7F18 

7F1A 

7F1C 

7F1D 

7F1F 

7F21 

7F22 

7F24 

7F26 

7F29 

7F2A 

7F2C 

7F2E 

7F31 

7F32 

7F33 

7F35 

7F37 

7F38 

7F39 

7F3A 

7F3B 



F5 

C5 

D5 

E5 

21 003 C 

0601 

C5 

Ci 

7E 

182E 

7E 

1 82B 

23 

CB38 

CB38 

C5 

7D 

E63F 

20EE 

47 

3E0D 

1826 

CI 

CB20 

CB20 

11C0FF 

19 

CB70 

28DB 

114000 

19 

7C 

FE40 

20D0 

El 

Dl 

CI 

Fl 

C9 



00100 

00110 

00120 

00130 

00140 

00150 

00160 

00170 

00180 

00190 

00200 

00210 

00220 

00230 

00240 

00250 

00260 

00270 

00280 

00290 

00300 

00310 

00320 

00330 

00340 

00350 

00360 

00370 

00380 

00390 

00400 

00410 

00420 

00430 

00440 

00450 

00460 

00470 

00480 

00490 

00500 

00510 

00520 

00530 

00540 

00550 

00560 

00570 

00580 



ORG 7F00H ? 0520 

?* GRAPHICS DUMP TO PRINTER. CAUSES CONTENTS OF SCREEN * 

;# TO BE DUMPED TO SYSTEM LINE PRINTER AS 128 BY 48 MAT-* 

;* RIX OF OS. TEXT IS IGNORED. * 

?* INPUT! NONE * 

5* OUTPUT: SCREEN CONTENTS PRINTED * 



; 

SDGRAP 



PUSH 

PUSH 

PUSH 

PUSH 

LD 
SDG010 LD 
SDG012 PUSH 
SDG015 POP 
SDG020 LD 

JR 
SDG030 LD 

JR 
SDG035 INC 

SRL 

SRL 

PUSH 

LD 

AND 

JR 

LD 

LD 

JR 
SDG040 POP 

SLA 

SLA 

LD 

ADD 

BIT 

JR 

LD 

ADD 

LD 

CP 

JR 

POP 

POP 

POP 

POP 

RET 
5 PRINT SUBROUTINE 



AF 

BC 

DE 

HL 

HL?3C00H 

&, 1 

BC 

BC 

Ai (HL) 

SDG050 

As (HL) 

SDG050 

HL 

B 

B 

BC 

A*L 

3FH 

NZsSDG015 

B»A 

As 13 

SDG054 

BC 

B 

B 

DEf-64 

HLsDE 

6»B 

Z»SDG012 

DE?64 

HL i DE 

A?H 

40H 

NZ?SDG010 

HL 

DE 

BC 

AF 



5 SAVE REGISTERS 



5 START OF SCREEN 

5MASK BIT FOR UPPER LEFT 
;SAVE MASK 
;GET MASK 

;GET CHARACTER 
50UTPUT LFT SIDE BIT 
;GET CHARACTER 
50UTPUT RIGHT SIDE BIT 
5BUMP LINE POINTER 
5 ADJUST BACK MASK 

5SAVE MASK 
5 GET CHAR POS ADDR 
1TEST FOR 64TH CHAR 
SGO IF NOT END OF LINE 

50 TO B 

5 CARRIAGE RETURN 

SPRINT 

; RESTORE BIT MASK 

?NEXT LINE MASK 

5 FOR RTN TO LINE START 
I RESET TO LINE START 
?TEST FOR THREE LINES 
;G0 IF NOT THREE 
!FOR NEXT SCREEN LINE 
; POINT TO NEXT SCREEN LINE 
?GET MS BYTE OF ADDRESS 
;TEST FOR END OF SCREEN 
;GO IF NOT END 
; RESTORE REGISTERS 



5 RETURN TO CALLING PROGRAM 
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7F3C 


CB7F 


00590 SDG050 


BIT 


7?A 


7F3E 


2801 


00600 


JR 


Z?SDG052 


7F40 


A0 


00610 


AND 


B 


7F41 


3E20 


00620 SDG052 


LD 


A? ' 7 


7F43 


2802 


00630 


JR 


Z?SDG054 


7F45 


3E4F 


00640 


LD 


A? '0' 


7F47 


F5 


00650 SDG054 


PUSH 


AF 


7F48 


3AE837 


00660 SDG060 


LD 


A 5 (37E8H) 


7F4B 


E6F0 


00670 


AND 


0F0H 


7F4D 


FE30 


00680 


CP 


30H 


7F4F 


20F7 


00690 


JR 


NZ?SDG060 


7F51 


Fl 


00700 


POP 


AF 


7F52 


32E837 


00710 


LD 


(37EBH)?A 


7F55 


CB20 


00720 


SLA 


B 


7F57 


78 


00730 


LD 


A?B 


7F58 


E6AA 


00740 


AND 


0AAH 


7F5A 


20B2 


00750 


JR 


NZ?5D6030 


7F5C 


78 


00760 


LD 


A?B 


7F5D 


E654 


00770 


AND 


54H 


7F5F 


20B0 


00780 


JR 


NZ?SDG035 


7F61 


1 8BE 


00790 


JR 


SDG040 


0000 




00800 


END 




00000 TOTAL 


ERRORS 







5TEST FOR NON-GRAPHICS 

5G0 IF NON-GRAPHICS 

5GET GRAPHICS BIT 

; BLANK 

ISO IF BIT RESET 

5 BIT SET 

;SAVE CHARACTER 

;GET PRINTER STATUS 

5MASK OUT INACTIVE BITS 

STEST FOR STATUS 

;LOOP IF BUSY 

? RESTORE CHARACTER 

5 OUTPUT CHARACTER 

? ADJUST BIT MASK 

5 GET BIT MASK 

5 TEST FOR RETURN 

5 RETURN FOR RIGHT SIDE 

?GET BIT MASK 

5 TEST FOR RETURN 

? RETURN FOR NEXT ROW 

; RETURN FOR LINE 



SDGRAP DECIMAL VALUES 



245? 197. 213s 229? 33* 0? 60. 6? 1? 197? 
193? 126? 24? 46? 126? 24? 43? 35? 203? 56? 
203? 56? 197? 125? 230? 63? 32? 238? 71? 62? 
13? 24? 38? 193? 203? 32? 203? 32? 17? 192? 
255? 25? 203? 112? 40? 219? 17? 64? 0? 25? 
124? 254? 64? 32? 208? 225? 209? 193? 241? 201; 
203? 127? 40? 1? 160? 62? 32? 40? 2? 62? 
79? 245? 58? 232? 55? 230? 240? 254? 48? 32? 
247? 241? 50? 232? 55? 203? 32? 120? 230? 170? 
32? 178? 120? 230? 84? 32? 176? 24? 190 



CHKSUM= 64 



SETCOM: SET RS-232-C INTERFACE 



System Configuration 
Model I. 

Description 

SETCOM programs the RS-232-C controller in lieu of setting the switches on the 
RS-232-C controller board. (SETCOM must be run before the NECDRV program 
can be used.) 

Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
two bytes of the parameter block are the baud rate for which the RS-232-C 
interface is to be set, 110,1 50, 300, 600, 1 200, 2400, 4800, or 9600. The next byte 
is set to a zero if parity is to be enabled, or to a one if parity is to be disabled. 
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The next byte of the parameter block is set to a zero if one stop bit is to be used, 
or to a one if two stop bits are to be used. The next byte contains the number of 
bits in the RS-232-C transfer; is 5 bits, 1 is 7 bits, 2 is 6 bits, or 3 is 8 bits. The 
next byte contains a zero if odd parity is to be used, or a one if even parity is 
to be used. 

On output, the parameter block remains unchanged, and the RS-232-C inter- 
face is initialized. 



INPUT 



POINTER TO PARAM+0 



PARAM+0 

+ 1 


BAUD 
RATE 




+2 


0=PE 1=PD 




+3 


0=1 STOP BIT 
1=2 STOP BITS 




+4 


0=5 BITS, 1=7 BITS 
2=6 BITS, 3=8 BITS 




+5 


0=0 DD PAR 
1=EVEN PAR 









H L 
i 




\ 


UNCHANGED 

t 




PARAM+0 

+ 1 
+2 

— y +3 . 

+4 
+5 


! 




- UNCHANGED - 




UNCHANGED 




UNCHANGED 




UNCHANGED 




UNCHANGED 





Algorithm 

The SETCOM subroutine reads the parameters, merges, and aligns them into 
the proper format for the RS-232-C controller, and writes them out to the con- 
troller. 

First, the controller is reset by an "OUT (0E8H),A." Next, the parity type is 
picked up into A and shifted to yield OOOOOPOO. Next, the number of bits is 
merged, and shifted to yield OOOOPNNO. Next, the number of stop bits 
is merged and shifted to yield OOOPNNSO. Next, the parity enable/disable bit is 
merged and shifted to yield PNNSPOOO. Next, the BRK and RTS bits are set and 
the PNNSP101 configuration is output to port address OEAH. 

The next portion of code converts the baud rate to the proper RS-232-C code. 
To keep the code relocatable, "linear" code (not table lookup) is used. The 
least significant byte of the baud rate is picked up and compared to the Is byte 
of 110, 150, 300, etc. The proper code is then output to port address 0E9H. 

Sample Calling Sequence 



NAME OF SUBROUTINE? SETCOM 

HL VALUE? 40000 

PARAMETER BLOCK LOCATION? 40000 

PARAMETER BLOCK VALUES? 



+ 





2 


12 


00 


1200 BAUD 


+ 


2 


1 


1 




PD 


+ 


3 


1 







ONE STOP BIT 


+ 


4 


1 


1 




SEVEN BITS 


+ 


5 


1 







ODD PARITY 


+ 


6 













MEMORY BLOCK 1 LOCATION? 
MOVE SUBROUTINE TO? 39000 
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SUBROUTINE EXECUTED AT 39000 



INPUT: 




OUTPUT: 






HL.= 40000 




HL= 40000 




PARAM+ 


176 


FARAM+ 


176 




PARAM+ 1 


4 


PARAM+ 1 


4 




PARAM+ 2 
PARAM+ 3 


1 



PARAM+ 2 
PARAM+ 3 


1 



-UNCHANGED 


PARAM+ 4 


1 


PARAM+ 4 


1 




PARAM+ 5 





PARAH+ 5 








NAME OF SUBROUTINE? 



Notes 



1. No check is made on proper parameters in the parameter block. 

2. The OR prior to OEAH output may be modified as required to set a differ- 
ent configuration of BRK, DTR, RTS. 

3. Note transposed order of number of bits. 

Program Listing 



7F00 



7F00 
7F01 
7F02 
7F04 
7F07 
7F08 
7F0A 
7F0C 
7F0F 
7F10 
7F11 
7F14 
7F15 
7F18 
7F19 
7F1C 
7F1D 
7F1E 
7F1F 
7F21 
7F23 
7F26 
7F28 
7F2A 
7F2C 
7F2E 
7F30 



F5 

E5 

DDE5 

CD7F0A 

E5 

DDE1 

D3E8 

DD7E05 

07 

07 

DDB604 

07 

DDB603 

07 

DDB602 

07 

07 

07 

F605 

D3EA 

DD7E00 

FE6E 

2004 

3E22 

1832 

FE96 

2004 



00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 



ORG 7F00H 5 0522 

;##•*#######*#*#######*##**#####****•«■##*#*##*#*##**##■»**#* 

;* SET RS-232-C. PROGRAMS THE RS-232-C CONTROLLER. * 

5* INPUT: HL=> PARAMETER BLOCK * 

S* PARAM+0,+l=BAUD RATE - 1105 150* 300 5 600, * 

;* 1200s 2400 5 4800) 9600 # 

;* PARAM+2=0=PARITY ENABLED* 1=PARITY DISAB # 

5* PARAM+3=0=ONE STOP BITs l=TWO STOP BITS * 

;* PARAM+4=0=5 BITS* 1=7 BITS* 2=6 BITS, 3=8 # 

;* BITS * 

;* PARAM+5=0=ODD PARITY» 1=EVEN # 

;* OUTPUT :RS-232-C CONTROLLER INITIALIZED * 
;#*#######*#*##*###***###*#*##***##*####•»•#*#**##*##****## 



SET COM 



SET010 



PUSH 

PUSH 

PUSH 

CALL 

PUSH 

POP 

OUT 

LD 

RLCA 

RLCA 

OR 

RLCA 

OR 

RLCA 

OR 

RLCA 

RLCA 

RLCA 

OR 

OUT 

LD 

CP 

JR 

LD 

JR 

CP 

JR 



AF 

HL 

IX 

0A7FH 

HL 

IX 

<0E8H)>A 

As <IX+5) 



< IX+4) 



(IX+3) 



UX+2) 



<0EAH).A 

A, ( IX+0) 

110 

NZ.SET010 

A.22H 

SET080 

150 

NZ»SET020 



5SAVE REGISTERS 



;###GET PB LOC'N*** 
; TRANSFER TO IX 

; RESET RS-232-C 

;PARITY 

; ALIGN 

5MERGE # BITS 

5 ALIGN 

5# OF STOP BITS 

SALIGN 

5 PARITY ENAB/DIS 

5ALIGN 



5SET BRK > RTS 

; OUTPUT 

5GET LSB OF BAUD RATE 

5110? 

5 GO IF NO 

;110 CODE 

5GO TO SET 

5 150? 

;GO IF NO 
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7F32 


3E44 


00510 




LD 


A; 44H 


7F34 


182A 


00520 




JR 


SET08B 


7F36 


FE2C 


00530 


SET020 


CP 


44 


7F38 


2004 


00540 




JR 


NZ?SET030 


7F3A 


3E55 


00550 




LD 


A?55H 


7F3C 


1822 


00560 




JR 


SET080 


7F3E 


FE58 


00570 


SET030 


CP 


88 


7F40 


2004 


00580 




JR 


NZ?SET040 


7F42 


3E66 


00590 




LD 


A?66H 


7F44 


181A 


00600 




JR 


SET080 


7F46 


FEB0 


00610 


SET040 


CP 


176 


7F48 


2004 


00620 




JR 


NZ?SET050 


7F4A 


3E77 


00630 




LD 


A?77H 


7F4C 


1812 


00640 




JR 


SET080 


7F4E 


FE60 


00650 


SET050 


CP 


96 


7F50 


2004 


00660 




JR 


NZ?SET060 


7F52 


3EAA 


00670 




LD 


A?0AAH 


7F54 


180A 


00680 




JR 


BET080 


7F56 


FEC0 


00690 


SET060 


CP 


192 


7F58 


2004 


00700 




JR 


NZiSET070 


7F5A 


3ECC 


00710 




LD 


A?0CCH 


7F5C 


1 802 


00720 




JR 


SET080 


7F5E 


3EEE 


00730 


SET070 


LD 


A?0EEH 


7F60 


32E900 


00740 


SET0B0 


LD 


<0E9H)?A 


7F63 


DDE1 


00750 




POP 


IX 


7F65 


El 


00760 




POP 


HL 


7F66 


Fl 


00770 




POP 


AF 


7F67 


C9 


00780 




RET 




0000 




00790 




END 




00000 TOTAL 


ERRORS 









1150 CODE 

;eo TO SET 

5 300? 

5 GO IF NO 

5 300 CODE 

5 GO TO SET 

5600? 

;GO IF NO 

5 600 CODE 

;GO TO SET 

5 1200? 

;GO IF NO 

5 1200 CODE 

5 GO TO SET 

5 2400? 

;GO IF NO 

5 2400 CODE 

5GO TO SET 

5 4800? 

5 GO IF NO 

5 4800 CODE 

5 GO TO SET 

5 9600 CODE 

5 OUTPUT TO BRG 

5 RESTORE REGISTERS 

5 RETURN TO CALLING PROG 



SETCOM DECIMAL. VALUES 



245 


i 229 


211 


> 232 


7» 221? 


7? 


246? 


32? 


4? 6 


62 s 


68 s 


24, 


34? 


254 


. 176 


32? 


4? 6 


62 5 


204? 


225 


225 



? 221? 229? 205? 127? 10? 229? 221? 
? 221? 126? 5? 7? 7? 221? 182? 4? 
182? 3? 7? 221? 182? 2? 7? 7? 
5? 211? 234? 221? 126? 0? 254? 110? 
2? 34? 24? 50? 254? 150? 32? 4? 
24? 42? 254? 44? 32? 4? 62? 85? 
254? 88? 32? 4? 62? 102? 24? 26? 
? 32? 4? 62? 119? 24? 18? 254? 96? 
2? 170? 24? 10? 254? 192? 32? 4? 

24? 2? 62? 238? 50? 233? 0? 221? 
? 24 1 ? 201 



225 5 



CHKSUM= 186 



SOIARR: SEARCH ONE-DlMENSiONAL INTEGER ARRAY 



System Configuration 

Model I, Model III, Model II Stand Alone. 

Description 

SOIARR searches a BASIC or other one-dimensional integer array for a given 
1 6-bit search key. The array may be any size within memory limits. The array is 
assumed to be made up of 16-bit entries. SOIARR returns the address of the 
entry matching the search key, or a —1 if no entry matches the search key. 
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Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
two bytes of the parameter block contain the 16-bit address of the array, ar- 
ranged in standard Z-80 address format, least significant byte followed by most 
significant byte. The next two bytes of the array contain the number of entries 
in the array. (Note that this value is one-half the number of bytes in the array!) 

The next two bytes contain the 16-bit search key. The arrangement of the 
search key may correspond to the arrangement of data in the array. If the array 
is a BASIC array, the data in the search key will be least significant byte fol- 
lowed by most significant byte; if the array is made up of two ASCII characters 
arranged first and second, then the search key should have the same arrange- 
ment. The last two bytes are reserved for the result of the search. 

On output, PARAM+6, +7 holds the address of the entry corresponding to the 
search key, or —1 if no entry has been found. 





INPUT 
H I 








OUTPUT 

H L 

1 




POINTER TO PARAM+0 


\ 


UNCHANGED 

I 






r 












M+0 

+ 1 


ADDRESS 
OF ARRAY 
(MEM 1+0) 


PARAM+0 

+ 1 


- UNCHANGED - 




+2 
+3 


SIZE OF 
ARRAY 


+2 
/ +3 


- UNCHANGED - 




+4 
+5 


1 6-BIT 

SEARCH 

KEY 


+4 

+5 


- UNCHANGED - 




+6 
+7 


RESERVED 

FOR 

RESULT 


+6 

+7 


POINTER TO 
- FOUND ENTRY - 

OR -1 





MEM1- 



ENTRY 



+ 1 

+2 
+3 
+4 
+5 
+6 



ENTRY 1 



ENTRY 2 



MEM 1+0 






+ 1 






+2 






> +3 
/ 




UNCHANGED " 


+4 






+5 






+6 







Algorithm 

The SOIARR scans the array one entry (two bytes) at a time from beginning to 
end, looking for the search key. The number of entries is put into BC, the 
starting address of the array into IY, and the search key in DE. HL is used as a 
working register for the compare of the entries to the key. 



185 



The loop at SOI010 performs the scan. The next entry is put into HL. The search 
key in DE is then subtracted from HL. If the result is zero, the current address in 
IY is returned in HL. If the result is nonzero, no match occurred, and the code at 
SOI020 increments IY by two to point to the next entry, and then decrements 
the count of entries in BC. A test is then made of BC; if it is zero, all entries have 
been tested and a "not found" return is made. If there are additional entries to 
be tested, a loop back to SOI010 is done. 



Sample Calling Sequence 



NAME OF SUBROUTINE? SOIARR 

HL VALUE? 40000 

PARAMETER BLOCK LOCATION? 40000 

PARAMETER BLOCK VALUES? 



| 
I 



ADDRESS OF ARRAY 
5 ENTRIES (10 BYTES) 
SEARCH KEY 







45000 



2 45000 
2 2 5 

1234 


BLOCK 1 
BLOCK 1 
2 2345 
2 2 3456 

4 2 5678 f- 5 ENTRY ARRAY (TABLE! 
6 2 6789 
8 2 i 234 _ 
10 



+ 

+ 2 
+ 4 
+ 6 
+ 8 

MEMORY 
MEMORY 
+ 2 



LOCATION? 
VALUES? 



MEMORY BLOCK 2 LOCATION? 
MOVE SUBROUTINE TO? 38000 
SUBROUTINE EXECUTED AT 38000 



200 

175 

5 



210 

4 . 

208" 

175 

41 _ 

9 

128 

13 

46 

133 
26 
210 
4 



INPUT: 






OUTPUT: 


HL= 40000 




HL= 40000 


PARAM+ 





200 


PARAM+ 


PARAM+ 


1 


175 


PARAM+ 1 


PARAM+ 


2 


5 


PARAM+ 2 


PARAM+ 


3 





PARAM+ 3 


PARAM+ 


4 


210 


PARAM+ 4 


PARAM+ 


5 


4 


PARAM+ 5 


PARAM+ 


6 





PARAM+ 6 


PARAM+ 


7 





PARAM+ 7 


MEMB1+ 





41 


MEMB1+ 


MEMB1+ 


1 


9 


MEMB1+ 1 


MEMB1+ 


""' 


128 


MEMB1+ 2 


MEMB1+ 


3 


13 


MEMB1+ 3 


MEMB1+ 


4 


46 


MEMB1+ 4 


MEMB1+ 


5 


22 


MEMB1+ 5 


MEMB1+ 


6 


1 33 


MEMB1+ 6 


MEMB 1 + 


7 


26 


MEMB1+ 7 


MEMB1+ 


8 


210 


MEMB1+ 8 


MEMB1+ 


9 


4 


MEMB1+ 9 



-FOUND AT 45008 



UNCHANGED 



UNCHANGED 



NAME OF SUBROUTINE? 



Notes 



1. "Array" in this case corresponds to a table of two-byte entries. 
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I 



Program Listing 



7F00 



7F00 
7F01 
7F02 
7F03 
7F04 
7F06 
7F08 
7F0B 
7F0C 
7F0E 
7F11 
7F14 
7F17 
7F1A 
7F1D 
7F20 
7F21 
7F23 
7F26 
7F29 
7F2A 
7F2C 
7F2E 
7F30 
7F31 
7F33 
7F35 
7F37 
7F38 
7F39 
7F3A 
7F3C 
7F 3F 
7F42 
7F45 
7F47 
7F49 
7F4A 
7F4B 
7F4C 
7F4D 
0000 
00000 



F5 

C5 

D5 

E5 

DDE5 

FDE5 

CD7F0A 

E5 

DDE! 

DD4E02 

DD4603 

DD6E00 

DD6601 

DD5E04 

DD5605 

E5 

FDE1 

FD6E00 

FD6601 

B7 

EDS 2 

2005 

FDE5 

El 

180C 

FD23 

FD23 

0B 

79 

B0 

20E7 

21FFFF 

DD7506 

DD7407 

FDE1 

DDEi 

El 

Di 

Ci 

Fi 

C9 

TOTAL 



00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 
00560 
00570 
00580 
00590 
00600 
00610 
00620 
00630 
00640 
ERRORS 



ORG 7F00H 5 0522 

;* SEARCH ONE-D INTEGER ARRAY. SEARCHES INTEGER ARRAY * 

!* FOR SPECIFIED SEARCH KEY. * 

i* INPUT: HL=> PARAMETER BLOCK * 

;* PARAM+0i+l=ADDRE5S OF ARRAY * 

?* PARAM+2i+3=SIZE OF ARRAY # 

?* PARAM+4. +5= 16-BIT SEARCH KEY * 

5* PARAM+6?+7=RESERVED FOR RESULT OF SEARCH # 

?* OUTPUT :PARAM+6i +7 HOLDS ADDRESS IF KEY FOUND OR * 

5* -1 OTHERWISE * 

5 



SOIARR 



SOI010 



SO I 020 



SO I 030 



PUSH 

PUSH 

PUSH 

PUSH 

PUSH 

PUSH 

CALL 

PUSH 

POP 

LD 

LD 

LD 

LD 

LD 

LD 

PUSH 

POP 

LD 

LD 

OR 

SBC 

JR 

PUSH 

POP 

JR 

INC 

INC 

DEC 

LD 

OR 

JR 

LD 

LD 

LD 

POP 

POP 

POP 

POP 

POP 

POP 

RET 

END 



AF 

BC 

DE 

HL 

IX 

IY 

0A7FH 

HL 

IX 

C> (IX+2) 

B» (IX+3) 

Li (IX+0) 

Hi (IX+1 ) 

Ei <IX+4) 

Di UX+5) 

HL 

IY 

Li (IY+0) 

Hi (IY+1 ) 

A 

HLiDE 

NZ i SO I 020 

IY 

HL 

SO I 030 

IY 

IY 

BC 

A»C 

B 

NZiSOI010 

HLi-1 

(IX+6)iL 

<IX+7)?H 

IY 

IX 

HL 

DE 

BC 

AF 



5 SAVE REGISTERS 



;*##GET PB LOC'N*** 
I TRANSFER TO IX 

IPUT SIZE IN BC 
!PUT ADDRESS IN HL 
5 PUT KEY IN DE 
3 ARRAY ADDRESS TO IY 
;GET NEXT ARRAY ENTRY 

5 CLEAR CARRY 
5 TEST FOR EQUALITY 
?GO IF NOT FOUND 
5 TRANSFER IY TO HL 

?GO TO RETURN 

; INCREMENT ARRAY LOC'N 

? DECREMENT COUNT 
5TEST COUNT 

;LOOP IF COUNT NOT 
5 'NOT FOUND' FLAG 
5 STORE LOC'N OR NOT FOUND 

; RESTORE REGISTERS 



I RETURN TO CALLING PROG 



SOIARR DECIMAL VALUES 



245 1 197i 21 3» 229 1 221 
10i 229i 221i 225i 221i 



229 1 253 1 229? 205 1 
78> 2i 221 1 70i 3) 



127i 
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221s 110! 05 221 » 102) 1. 221? 94? 4? 221 . 
86? 5? 229? 253» 225s 253. 110. 0? 253. 102. 
1. 1S3» 237. 82. 32. 5. 253. 229. 225, 24. 
12. 253. 35. 253. 35. 11. 121. 176. 32. 231. 
33. 255. 255. 221. 117. 6. 221. 116. 7. 253? 
225? 221. 225. 225. 209. 193. 241? 201 



CHKSUM= 17 



SPCAST: SERIAL PRINTER FROM CASSETTE 



System Configuration 
Model I, Mode! III. 

Description 

SPCAST uses the cassette output port to implement output to a serial printer. 
Additional external "hardware" is required to convert the cassette voltage lev- 
els to levels compatible with serial printers. A character at a time is output with 
a baud rate of 110, 300, 600, or 1200. 

The format for output is one start bit, seven or eight data bits, and one stop bit 
with no parity. If the character to be output is a seven-bit ASCII character, the 
most significant bit should be set to zero, and the result will be seven data bits 
with two stop bits. If the character to be output is an eight-bit character, the 
result will be eight data bits with one stop bit. 



Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
two bytes of the parameter block contain the address of SPCAST, in standard 
Z-80 address format. The next byte contains a baud rate code of 0, 1, 2, or 3, 
corresponding to 110,300,600, or 1200 baud. The next byte contains the char- 
acter to be output. 

On output, the character has been transmitted. The parameter block remains 
unchanged. 



INPUT 



OUTPUT 









H L 






POINTER TO PARAM+0 

i 


PARA 










M+0 

+ 1 
+2 
+3 




ADDRESS 

OF 
SPCAST 




2= 


= 110, 1=300, 
=600. 3=1200 




CHARACTER 





$ 



I —I 1 

UNCHANGED 








M+0 

+ 1 


- UNCHANGED - 




+2 


UNCHANGED 




+3 


UNCHANGED 





*8H 



I 
I 
I 
I 
I 
I 
I 



Algorithm 

SPCAST must take the given character and "strip off" the eight bits, translating 
each into a serial bit, which is sent out to the serial printer through the cassette 
port. The timing for each "bit time" is determined by the specified baud rate. 

SPCAST first outputs a cassette off code by outputting a 2 to port OFFH, Next, 
the baud rate code is obtained from the second byte of the parameter block. 
The code is multiplied by two and added to the start address of SPCAST and the 
table displacement. The result now points to a timing value in BAUDTB which 
represents the "bit time" for the given baud rate. This two-byte value is picked 
up and put into DE. 

The cassette port is now turned on by outputting a 1 to OFFH. This is the "start" 
bit. The count in DE is put into HL and the delay loop at SPC010 delays for one 
bit time. 

The code at SPC01 5 is the main output loop of SPCAST. It loops eight times. For 
each loop, a bit from the character in C is shifted out into the carry. If the bit is 
a 0, a 2 level is output to port OFFH; if the bit is a 1 , a 1 level is output to port 
OFFH. The second-level loop at SPC030 delays one bit time by decrementing 
the delay count in HL. If eight iterations have not been performed, another bit is 
transmitted. 

The loop at SPC040 outputs a "stop" bit and delays for one bit time to terminate 
the transmission of the character. 

Sample Calling Sequence 



NAME OF SUBROUTINE? SPCAST 

HL VALUE? 39000 

PARAMETER BLOCK LOCATION? 39000 

PARAMETER BLOCK VALUES? 



+02 37000 


ADDRESS OF SPCAST 




+ 2 1 1 


BAUD RATE = 300 


+ 3 1 65 


"A" TO BE OUTPUT 


+ 400 




MEMORY BLOCK 1 


LOCATION? 


MOVE SUBROUTINE TO? 37000 


SUBROUTINE EXECUTED AT 37000 


INPUT: 


OUTPUT: 


HL= 39000 


HL= 39000 


PARAM+ 136 


PARAM+ 136 




PARAM+ 1 144 
PARAM+ 2 1 


PARAM+ 1 144 
PARAM+ 2 1 


-UNCHANGED 


PARAM+ 3 65 


PARAM+ 3 65 _ 





NAME OF SUBROUTINE? 



Notes 



1. External electronics must convert the cassette signal levels to RS-232-C 
compatible levels. The output signal level for a logic is approximately volts. 
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The output signal level for a logic 1 is approximately 0,85 volts. Corresponding 
RS-232-C signal levels are +3 volts or more for a logic and -3 volts or less 
for a logic 1 . 

2. Multiply the BAUDTB values by 1.143 for a Model III. 
Program Listing 



7F00 



7F00 

7F01 

7F02 

7F03 

7F04 

7F06 

7F09 

7F0A 

7F0C 

7F0E 

7F10 

7F13 

7F15 

7F16 

7F19 

7F1C 

7F1D 

7F20 

7F21 

7F22 

7F23 

7F24 

7F25 

7F26 

7F2S 

7F2A 

7F2B 

7F2C 

7F2D 

7F2F 

7F32 

7F34 

7F35 

7F36 

7F38 

7F3A 

7F3C 

7F3E 

7F4B 

7F41 

7F42 

7F43 

7F45 

7F47 

7F4S 

7F49 



F5 

C5 

D5 

E5 

DDES 

CD7F0A 

E5 

DDE! 

3E01 

D3FF 

DD6E02 

2600 

29 

DD5E00 

DD5601 

19 

115900 

19 
5E 

23 

56 

D5 

El 

3E02 

D3FF 

2B 

7C 

B5 

20FB 

DD4E03 

0608 

D5 

El 

3E02 

CB39 

3002 

3E01 

D3FF 

2B 

7C 

B5 

20FB 

10ED 

D5 

El 

3E01 



00100 

00110 

00120 

00130 

00140 

00150 

00160 

00170 

00180 

00190 

00200 

00210 

00220 

00230 

00240 

00250 

00260 

00270 

002B0 

00290 

00300 

00310 

00320 

00330 

00340 

00350 

00360 

00370 

00380 

00390 

00400 

00410 

00420 

00430 

00440 

00450 

00460 

00470 

00480 

00490 

00500 

00510 

00520 

00530 

00540 

00550 

00560 

00570 

00580 

00590 

00600 

00610 

00620 

00630 

00640 

00650 

00660 

00670 



ORG 7F00H 5 0522 

;* SERIAL PRINTER FROM CASSETTE. OUTPUTS A CHARACTER TO * 

!* A SERIAL PRINTER USING THE CPU CASSETTE PORT 

!* INPUT !HL=> PARAMETER BLOCK 

'* PARAM+0,+l=ADDRESS OF SPCAST 

S* PARAM+2=BAUD RATE CODE 0=110, 

5* 2=600> 3=1200 

5* PARAM+3=CHARACTER TO BE OUTPUT 

;* OUTPUT: CHARACTER OUTPUT TO PRINTER 



1=300, 



SPCAST 



SPC010 



SPC015 



SPC020 
SPC030 



PUSH 

PUSH 

PUSH 

PUSH 

PUSH 

CALL 

PUSH 

POP 

LD 

OUT 

LD 

LD 

ADD 

LD 

LD 

ADD 

LD 

ADD 

LD 

INC 

LD 

PUSH 

POP 

LD 

OUT 

DEC 

LD 

OR 

JR 

LD 

LD 

PUSH 

POP 

LD 

SRL 

JR 

LD 

OUT 

DEC 

LD 

OR 

JR 

DJNZ 

PUSH 

POP 

LD 



AF 

BC 

DE 

HL 

IX 

0A7FH 

HL 

IX 

A, 1 

( 0FFH S » A 

L, < IX+2) 

H,0 

HL , HL 

E, (IX+0) 

D, ( IX+1 ) 

HL , DE 

DE, BAUDTB 

HL.DE 

E , ( HL ) 

HL 

D, (HL) 

DE 

HL 

A, 2 

(0FFH),A 

HL 

A,H 

L 

NZ.SPC010 

C, ( IX+3) 

B,B 

DE 

HL 

A, 2 

C 

NCSPC020 

A, 1 

( 0FFH ) , A 

HL 

A,H 

L 

NZ»SPC030 

SPC015 

DE 

HL 

A, 1 



iSAVE REGISTERS 



;###GET PB LOC'N*** 
5 TRANSFER TO IX 

5 CASSETTE ON CODE 

? SPACING 

;GET RATE CODE 

5NOW IN HL 

5 C0DE*2 

; ADDRESS OF THIS CODE 

;START+CODE 

5 TABLE DISPLACEMENT 

; POINT TO TIMING COUNT 

;GET MS BYTE 

; POINT TO NEXT BYTE 

5GET LB BYTE 

; COUNT TO HL 



FOR 
6 



TIME 7/12 



; CASSETTE OFF CODE 
5TURN OFF CASSETTE 

5 DECREMENT COUNT 

5TEST COUNT 4 

5TEST FOR ZERO 4 

;GO IF NOT BIT 
;GET CHARACTER 
; ITERATION COUNT 

5 TRANSFER COUNT TO HL 

5 CASSETTE OFF CODE 

? SHI FT OUT BIT 

5 GO IF ZERO 

? CASSETTE ON CODE 

; OUTPUT TO CASSETTE 

; DECREMENT COUNT 

■TEST COUNT 

5GO IF NOT DONE 
5GO IF MORE BITS 
i TRANSFER COUNT TO HL 

: CASSETTE ON CODE 
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I 
I 



7F4B 


D3FF 


00680 


OUT 


<0FFH),A 


7F4D 


2B 


00690 SPC040 


DEC 


HL 


7F4E 


7C 


00700 


LD 


A,H 


7F4F 


B5 


00710 


OR 


L 


7F50 


20FB 


00720 


JR 


NZ,SPC040 


7F52 


DDE1 


00730 


POP 


IX 


7F54 


El 


00740 


POP 


HL 


7F55 


Dl 


00750 


POP 


DE 


7F56 


CI 


00760 


POP 


BC 


7F57 


Fl 


00770 


POP 


AF 


7F58 


C9 


00780 


RET 




0059 




00790 BAUDTB 


EOU 


$-SPCAST 


7F59 


6C02 


00800 


DEFW 


620 


7F5B 


E300 


00810 


DEFW 


227 


7F5D 


7200 


00820 


DEFW 


114 


7F5F 


3900 


00830 


DEFW 


57 


0000 




00840 


END 




00000 TOTAL 


ERRORS 







5 OUTPUT TO CASSETTE 
; DECREMENT COUNT 
;TEST COUNT 

;GO IF CNT NOT ZERO 
5 RESTORE REGISTERS 



5 RETURN 

5 BAUD COUNT TABLE 

5110 

;300 

5 600 

5 1200 



SPCAST DECIMAL VALUES 



245, 197, 213, 229s 221, 229s 205 , 127s 10, 2 

221) 225? 62? 1) 211) 255, 221, 110) 2, 38, 

0, 41, 221, 94, 0, 221, 86, 1, 25, 17, 

89, 0, 25, 94, 35, 86, 213, 225, 62, 2, 

211, 255, 43, 124, 181, 32, 251, 221, 78, 3, 

6, 8, 213, 225, 62, 2, 203, 57, 48, 2, 

62, 1, 211, 255, 43, 124, 181, 32, 251, 16, 

237, 213, 225, 62, 1, 211, 255, 43, 124, 181, 

32, 251, 221, 225, 225, 209, 193, 241, 201, 1 

2, 227, 0, 114, 0, 57, 



29, 



SQROOT: SQUARE ROOT 



CHKSUM= 15 



System Configuration 

Model I, Model 111, Model II Stand Alone, 

Description 

SQROOT calculates the integer square root of a given 16-bit number. For ex- 
ample, if the number is 30,000, the subroutine will return 54 as the square root 
in place of 54.77. 

Input/Output Parameters 

On input, HL contains the "square," the number whose square root is to be 
found. 

On output, HL contains the integer portion of the square root. 



INPUT 

H L 



4- 



NUMBER, 0-65535 



=> 



OUTPUT 



H 



INTEGER SQUARE ROOT 

1 
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Algorithm 

The SQROOT subroutine performs the square root operation by using the 
widely-known fact that the square root of any number is equal to the number of 
odd integers contained in the square. The square of 17, for example, contains 
1 + 3+5 + 7=16. The total number of odd integers is 4, and this is the inte- 
ger square root contained in 17. 

The B register is initialized with a count of - 1 ; B will count the number of odd 
integers in the square. DE is initialized with - 1 ; DE will hold the negated value 
of the next odd integer—-!, -3, -5, and so forth. 

The loop at SQR010 successively subtracts an odd integer from the original 
number by the "ADD HL,DE." The count of odd numbers in B is incremented 
with every subtract. The loop is terminated when the "residue" goes negative 
and the carry flag is reset after the add. At that point, the count of odd numbers 
is returned in HL. 

Sample Calling Sequence 

NAME OF SUBROUTINE? SQROOT 

HL VALUE? 65535 SQUARE ROOT IS 255.99 . . 

PARAMETER BLOCK LOCATION? 

MEMORY BLOCK i LOCATION? 

MOVE SUBROUTINE TO? 55000 

SUBROUTINE EXECUTED AT 55000 

INPUTS OUTPUT: 

HL= 65535 HL= 255 INTEGER VALUE OF SQUARE ROOT 

NAME OF SUBROUTINE? 

Notes 

1. The square may be "scaled-up" to achieve more precision. For example, if 
the square root of a number less than 100 is to be found, multiply the number 
by 256. The square root will then represent 16 times the actual square root. 
For example, 99 times 256 = 25344. The square root returned by the subrou- 
tine will be 159. This represents 159/1 6 or 9 and 15/16 or 9.9375, much closer to 
the actual square root of 9.949. 

2. The square input in HL is an "unsigned" number. The maximum square 
can be 65,535. 

Program Listing 

7F0 00100 ORG 7F00H 10522 

001 10 ; ********##*##*##«-*#################«.####** ########< . < . #### 

00120 5# SQUARE ROOT. CALCULATES INTEGER PORTION OF SQUARE # 

00130 ?# ROOT OF A GIVEN NUMBER. ' * 

00140 ;* INPUT! HL=NUMBER # 

00150 -,* OUTPUT :HL=INTEGER PORTION OF SQUARE RT OF NUMBER * 

00160 ;**#*###########################*.###*# #*################# 

00170 ; 

7F00 C5 00180 SQROOT PUSH BC ; SAVE REGISTERS 

7F01 D5 00190 PUSH DE 

7F02 CD7F0A 00200 CALL 0A7FH ; #**6ET NUMBER*** 
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7FB5 


06FF 


00210 


LD 


B,0FFH 


7F07 


HFFFF 


00220 


LD 


DE,-1 


7F0A 


04 


00230 SOR010 


INC 


B 


7F0B 


19 


00240 


ADD 


HL,DE 


7F0C 


IB 


00250 


DEC 


DE 


7F0D 


IB 


00260 


DEC 


DE 


7F0E 


38FA 


00270 


JR 


CSQR010 


7F10 


68 


00280 


LD 


L»B 


7F11 


2600 


00290 


LD 


H?0 


7\ 13 


Dl 


00300 


POP 


DE 


7F14 


CI 


00310 


POP 


BC 


7H5 


C39A0A 


00320 


JP 


0A9AH 


7F18 


C9 


00330 


RET 




0000 




00340 


END 




00000 TOTAL 


ERRORS 







; INITIALIZE RESULT 

; FIRST ODD SUBTRAHEND 

; INCREMENT RESULT COUNT 
5 SUBTRACT ODD NUMBER 
5FIND NEXT ODD NUMBER 

; CONTINUE IF NOT MINUS 
;GET RESULT 
;NOW IN HL 
? RESTORE REGISTERS 

;##*RETURN ARGUMENT*** 
? NON-BASIC RETURN 



SQROOT DECIMAL VALUES 



197, 213? 205, 127, 10, 6, 255* 17, 255, 255, 
4, 25, 27, 27, 56, 250, 104, 38, 0, 209, 
193, 195, 154, IB, 201 



CHKSUM= 217 



SROARR: SORT ONE-DIMENSIONAL INTEGER ARRAY 



System Configuration 

Model I, Model III, Model II Stand Alone. 

Description 

SROARR sorts a BASIC or other one-dimensional integer array. The array may 
be any size within memory limits. The array is assumed to be made up of 1 6-bit 
entries. SROARR arranges the entries in the array in ascending order based on 
their binary weight on a sixteen bit "unsigned" basis. In this scheme an entry of 
8000H will be after an entry of 7FFFH. A "bubble sort" is used which requires 
no additional memory buffer other than the array itself. 



Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
two bytes of the parameter block contain the 16-bit address of the array, ar- 
ranged in standard Z-80 address format, least significant byte followed by most 
significant byte. The next two bytes of the array contain the number of entries 
in the array. (Note that this value is one-half the number of bytes in the array!) 

On output, the array has been sorted in memory. The parameter block remains 
unchanged. 



INPUT 



OUTPUT 



POINTER TO PARAM+0 



UNCHANGED 

1 



193 



PARAM+0 

+ 1 


POINTER TO 

ARRAY 
(MEM 1+0) 


+2 
+3 


SIZE OF 
ARRAY 



PARAM+0 

+ 1 

+2 

+3 



-- UNCHANGED 



P 



-- UNCHANGED -- 



MEM 1+0 

+ 1 


ENTRY 


+2 
+3 


ENTRY 1 


+4 
+5 


ENTRY 2 


+6 J_ 

Algorithm 



MEM 1+0 

+ 1 



» 



SORTED 
ARRAY 



+2 
+3 
+4 
+5 
+6 



The SROARR sorts the entries by a bubble sort. This sort scans the array from 
bottom to top, moving one entry at a time. Each entry is compared to the next 
entry. If the top entry is a higher value than the next entry, the two entries are 
swapped, otherwise the entries are left unchanged. The next entry is then com- 
pared in the same fashion until all entries in the array have been examined. At 
the end of the scan, a "swap" flag is examined. If a swap occurred, another 
pass is made through the array. If no swap occurred, the array is sorted. A 
number of passes through the array may have to be made to sort the entries. 

There are two loops in SROARR. The innermost loop controls the scan from top 
to bottom for every pass and starts at SRO010. The outermost loop handles the 
next pass after a complete scan through the array and starts at SRO005. 

The innermost loop at SRO010 loads HL with the entry pointed to by IY and 
loads DE with the next entry. A subtract is done to compare the two. If the HL 
entry is "heavier" than the DE entry, a swap is made by storing HL and DE and 
a "swap" flag in IX is set. If the HL entry is the same or "lighter," no swap 
occurs. The IY pointer is then incremented to point to the next entry, the count 
of entries in BC is decremented, and a test is made of BC. If there are more 
entries, a jump is made to SRO010 for the next entry comparison. 

If BC is zero, all entries have been compared for this pass. IX contains the 
"swap" flag, and it is tested for nonzero, indicating a swap. If it is nonzero, a 
jump is made back to SRO005 to start over at the first entry and to reset the 
"swap" flag. The sort is over when a complete pass is made without the 
"swap" flag being set. 

Sample Calling Sequence 



NAME OF SUBROUTINE? SROARR 

HL VALUE? 40000 

PARAMETER BLOCK LOCATION? 40000 
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PARAMETER 


BLOCK VALUES? 






+ 2 


45000 


LOCATION OF ARRAY 


+ 2 2 


5 




5 ENTRIES 






44 













MEMORY 


BLOCK 


1 LOCATION? 


45000 


MEMORY 


BLOCK 


1 VALUES? 






+ 2 


7890 ~ 








+ 2 2 


6789 








+ 4 2 


5678 


- INITIALIZE VALUES FOR EXAMPLE 


+ 6 2 


4567 








+ 82 


3456 








+ 10 








MEMORY 


BLOCK 


2 LOCATION? 




MOVE SUBROUTINE TO? 37777 




SUBROUTINE EXECUTED AT 


37777 


INPUT: 






OUTPUT 






HL= 40000 




HL= 40000 




PARAM+ 





200 


PARAM+ 





200 




PARAM+ 
PARAM+ 


1 


175 
5 


PARAM+ 
PARAM+ 


1 


175 
5 


-UNCHANGE 


PARAM+ 


3 





PARAM+ 


3 


_ 




MEMB1+ 





210 


MEMB1+ 





128 




MEMB1+ 


i 


30 


MEMB1+ 


1 


13 




MEMB 1 + 


•™. 


1 33 


MEMB1+ 


'xf. 


215 




MEMB1+ 


3 


26 


MEMB1+ 


3 


17 




MEMB1+ 
MEMB1+ 


4 
5 


46 


MEMB1+ 
MEMB1+ 


4 
5 


46 


- RESORTED 


MEMB1+ 


6 


215 


MEMB1+ 


6 


133 




MEMB1+ 


7 


17 


MEMB1+ 


7 


26 




MEMB1+ 


8 


128 


MEMB1+ 


8 


210 




MEMB1+ 


9 


13 


MEMB1+ 


9 


30 





NAME OF SUBROUTINE? 

Notes 

1. The bubble sort is not particularly speedy, but requires minimal memory. 

2. The number of entries must be two or greater. 

Program Listing 



7F00 



7K80 

7F01 
7F02 
7F03 
7F04 
7F06 
7F08 
7F0B 
7F0C 
7F0E 
7F11 
7F.14 



F5 

C5 

D5 

E5 

DDES 

FDE5 

CD7F0A 

E5 

DDE1 

DD4E02 

DD4603 

0B 



00100 
00 110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 



ORG 7F00H 5 0522 

i ******************************************************** 
;* SORT ONE-D INTEGER ARRAY. SORTS INTEGER ARRAY INTO * 
;* ASCENDING ORDER. * 

;* INPUT: HL = >.PARAMETER BLOCK * 

5* PARAM+0 5 +l=ADDRESS OF ARRAY * 

5# PARAM+2s+3=SIZE OF ARRAY # 

;* OUTPUTsARRAY SORTED IN ASCENDING ORDER * 

; ******************************************************** 



SROARR 



SRO005 



PUSH 

PUSH 

PUSH 

PUSH 

PUSH 

PUSH 

CALL 

PUSH 

POP 

LD 

LD 

DEC 



AF 

BC 

DE 

HL 

IX 

IY 

0A7FH 

HL 

IX 

C» ( IX+2) 

B, (IX+3) 

BC 



;SAVE REGISTERS 



;**#GET PB LOC'N*** 
; TRANSFER TO IX 

;PUT SIZE IN BC 

;SIZE - 1 FOR SORT 
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7F15 


DD6E00 


00320 


LD 


L, (IX+0) 


7F18 


DD6601 


00330 


LD 


H, (IX+1 ) 


7F1B 


E5 


00340 


PUSH 


HL 


7F1C 


FDE1 


00350 


POP 


IY 


7F1E 


DDES 


00360 


PUSH 


IX 


7F20 


DD2 10000 


00370 


LD 


IX»0 


7F24 


FD6E00 


00380 SRO010 


LD 


L, (IY+0) 


7F27 


FD6601 


00390 


LD 


Hi (IY+1) 


7F2A 


FD5E02 


00400 


LD 


Ei (IY+2) 


7F2D 


FD5603 


00410 


LD 


D, (IY+3) 


7F30 


B7 


00420 


OR 


A 


7F31 


EDS 2 


00430 


SBC 


HL.DE 


7F33 


3811 


00440 


JR 


CSRO020 


7F35 


280F 


00450 


JR 


Z,SRO020 


7F37 


19 


00460 


ADD 


HL,DE 


7F38 


DD23 


00470 


INC 


IX 


7F3A 


FD7300 


00480 


LD 


<IY+0)»E 


7F3D 


FD7201 


00490 


LD 


( IY+D.D 


7F40 


FD7502 


00500 


LD 


(IY+2),L 


7F43 


FD7403 


00510 


LD 


(IY+3),H 


7F46 


FD23 


00520 SRO020 


INC 


IY 


7F48 


FD23 


00530 


INC 


IY 


7F4A 


0B 


00540 


DEC 


BC 


7F4B 


7B 


00550 


LD 


A,B 


7F4C 


Bl 


00560 


OR 


C 


7F4D 


20D5 


00570 


JR 


NZ,SRO010 


7F4F 


DDE5 


005B0 


PUSH 


IX 


7F51 


El 


00590 


POP 


HL 


7F52 


ED42 


00600 


SBC 


HL,BC 


7F54 


DDE1 


00610 


POP 


IX 


7F56 


20B6 


00620 


JR 


NZiSRO005 


7F58 


FDE1 


00630 


POP 


IY 


7F5A 


DDE1 


00640 


POP 


IX 


7F5C 


El 


00650 


POP 


HL 


7F5D 


Dl 


00660 


POP 


DE 


7F5E 


CI 


00670 


POP 


BC 


7F5F 


Fl 


00680 


POP 


AF 


7F60 
0000 


C9 


00690 
00700 


RET 
END 





00000 TOTAL ERRORS 



SPUT ADDRESS IN HL 

5COPY INTO IY 

5SAVE IX 

!SET 'NO CHANGE' FLAG 
;PUT CUR ENTRY INTO HL 

;PUT NEXT ENTRY IN DE 

; CLEAR CARRY 
; COMPARE PAIR 
5GO IF CUR<NEXT 
;GO IF EQUAL 
? RESTORE VALUE 
5 SET SWAP FLAG 
5 SWAP PAIR 



5 POINT TO NEXT ENTRY 

? DECREMENT COUNT 
5TEST COUNT 

!GO IF NOT END 
5FLAG TO HL 

;TEST FLAG 
; RESTORE IX 
5 GO IF SWAP OCCURED 
! RESTORE REGISTERS 



SROARR DECIMAL VALUES 



245 1 197» 213, 229 , 221, 229, 253, 229, 205, 127, 

10, k'29, 221, 225, 221, 78, 2, 221, 70, 3, 

11, 221, 110, 0, 221, 102, 1, 229, 253, 225, 
221, 229, 221) 33, 0, 0, 253, 110, 0, 253, 
102, 1, 253, 94, 2, 253, 86, 3, 183, 237, 
82, 56, 17, 40, 15, 25, 221, 35, 253, 115, 
0, 253, 114, 1, 253, 117, 2, 253, 116, 3, 
253, 35, 253, 35, 11, 120, 177, 32, 213, 221, 
229, 225, 237, 66, 221, 225, 32, 182, 253, 225, 
221, 225, 225, 209, 193, 241, 201 



CHKSUM= 242 



SSNCHR: SEARCH STRING FOR N CHARACTERS 



System Configuration 

Model I, Model III, Model II Stand Alone. 
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Description 

SSNCHR searches a string of any length for a "substring" of any length. A 
"found" or "not found" address of the substring is returned. The strings may 
contain any combinations of data — ASCII, binary, or other combinations. 



Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
two bytes of the parameter block contain the starting address of the string to be 
searched in standard Z-80 address format, least significant byte followed by 
most significant byte. The next two bytes of the parameter block contain the 
number of bytes in the string to be searched. The next two bytes of the parame- 
ter block contain the starting address of the "key" string, the string for which 
the search is to be made. The next two bytes in the parameter block contain the 
number of bytes in the key string. The next two bytes are reserved for the result. 

On output, PARAM+7,+ 8 contain the result of the search. All other bytes in 
the parameter block are unchanged. The result is a — 1 if the search key has not 
been found in the string to be searched. If the search key has been found, the 
result is the actual address of the first occurrence of the search key in the string 
to be searched. 







INPUT 








H L 




POINTER TO PARAM+0 

I 1+: 1 


PARAM+0 

+ 1 


START ADDRESS 
-OF STRING TO BE- 
SRCHED(MEM1+0) 




+2 
+3 


# BYTES IN 

- STRING TO - 

BE SRCHED 




+4 

+5 


STARTING 

- ADDRESS OF - 

KEY STRING 




+6 


# BYTES IN KEY 




+7 
+8 


RESERVED 
" FOR RESULT 




MEM 1+0 






+ 1 






+2 

+3 


STR 

TO 

- SEAR 


ING 
BE 
CHED 




+4 








+5 










+6 









OUTPUT 







H L 






UNCHANGED 


> 


PARA 

s. 


M+0 

+ 1 
+2 
+3 
+4 
+5 
+6 
+7 
+8 


i 




- UNCHANGED - 




- UNCHANGED - 




> 




/ 




- UNCHANGED - 




UNCHANGED 




ADDRESS IF 
" FOUND OR -1 " 





MEM1+0 




+ 1 




+2 




N 


- UNCHANGED - 


> +3 


/ 




+4 




+5 




+6 
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MEM2+0 




+ 1 






KEY 


+2 


STRING 


+3 






+4 






+5 


' 




+6 




Algorithm 





» 



MEIW2+0 

+ 1 




+2 
> +3 


- UNCHANGED - 


+4 




+5 
+6 





The SSNCHR subroutine performs the search in two steps. First, a "CPIR" block 
search is made for the first character. If the first character is not found, the 
search has been unsuccessful. If the first character is found, a further compari- 
son is done for the other characters in the search string. 

The registers are first set up for the CPIR. The string start address of the string to 
be searched is put into the HL register pair. The number of bytes in the string to 
be searched is put into BC. The first character of the search string is put into the 
A register. (Also at this point, the search string start is put into DE.) The CPIR 
search is done at SSN060. 

If the Z flag is not set after the CPIR, the first character of the string has not been 
found and the code at SSN080 puts a — 1 into the result. If the Z flag is set, the 
first character of the string has been found. 

The code at SSN070 compares the remaining bytes to see if the key string 
matches. In this loop, HL points to the locations of the string to be searched, 
while IY points to the locations in the key string. B contains the count of the 
number of characters in the key string. If any characters do not compare, a 
return back to the CPIR is done with HL pointing to the next byte after the byte 
that was found. If all characters compare, the address of the first character in 
the string to be searched is put into the result. 

Sample Calling Sequence 



NAME OF SUBROUTINE? SSNCHR 

HL VALUE? 40000 

PARAMETER BLOCK LOCATION? 40000 

PARAMETER BLOCK VALUES? 



+ 2 



45000 

6 

46000 

3 





MEMORY BLOCK 1 LOCATION? 
MEMORY BLOCK 1 VALUES? 









START OF STRING TO BE SEARCHED 
6 BYTES IN STRING TO BE SEARCHED 
START OF KEY STRING 
3 BYTES IN KEY STRING 



45000 



+ 

+ 1 

■+ 2 

+ 3 

+ 4 

+ 5 

+ 6 



1 
1 
1 
1 
1 
1 




-STRING TO BE SEARCHED 



MEMORY BLOCK 2 LOCATION? 46000 



198 



MEMORY 


BLOCK 2 


VALUES? 








+ 1 


3^ 










4 1 1 


4 


-KEY STRING 






+ 2 1 


5 










+ 30 













MOVE SUBRO 


UTINE 


TO? 38000 




SUBROUTINE 


EXEC 


UTED AT 


38000 


INPUT: 






OUTPUT 






HL= 40000 




HL= 40000 




PARAM+ 





200 


PARAM+ 





200 




PARAM+ 


1 


175 


PARAM+ 


1 


175 




PARAM+ 


".^ 


6 


PARAM+ 


2 


6 




PARAM+ 
PARAM+ 


3 
4 



176 


PARAM+ 
PARAM+ 


3 
4 



176 


-UNCHANGED 


PARAM+ 


5 


179 


PARAM+ 


■ 


179 




PARAM+ 


6 


3 


PARAM+ 


6 


3 . 




PARAM+ 
PARAM+ 


7 
8 






PARAM+ 
PARAM+ 


7 
8 


203 " 
175_ 


-FOUND AT 45 


MEMB1+ 








MEMB1+ 










MEMB1+ 


1 


1 


MEMB1+ 


1 


1 




MEMB1+ 


'2. 


2. 


MEMB1+ 


2 


2 




MEMB1+ 


3 


3 


MEMB1+ 


3 


3 




MEMB1+ 


4 


4 


MEMB1+ 


4 


4 


-UNCHANGED 


MEMB1+ 


5 


5 


MEMB 1 + 


5 


5 




MEMB2+ 





3 


MEMB2+ 





3 




MEMB2+ 


1 


4 


MEMB2+ 


1 


4 




MEMB2+ 


2 


5 


MEMB2+ 


2 


5 





NAME OF SUBROUTINE? 



Notes 



1. The key string may be one byte. 

2. The key string may not contain a larger number of bytes than the string to 
be searched. 



Program Listing 



7F00 



7F00 F5 
7F01 C5 
7F02 D5 
7F03 E5 
7F04 DDE5 
7F06 FDE5 
7F08 CD7F0A 
7F0B E5 
7F0C DDE1 
7F0E DD6E00 



00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
002 1 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 



ORG 7F00H 

!* SEARCH STRING FOR N CHARACTERS. SEARCHES STRING FOR * 

i* A SUBSTRING. * 

!* INPUT: HL=> PARAMETER BLOCK * 

;* PARA 5 +0*+l=STARTING ADDRESS OF STRING TO * 

;* BE SEARCHED * 

!* PARAM+2' 5 +3=# BYTES IN STRING TO BE SRCHED * 

;* PARAM+4 5 +5=STARTING ADDRESS OF KEY STRING # 

!* PARAM+6=# OF BYTES IN KEY * 

;* PARAM+7»+8=RESERVED FOR RESULT * 

!* OUTPUT :PARAM+7 5 +8=ADDRESS OF SUBSTRING IF FOUND * 

;* OR -1 IF NOT FOUND * 
; ##*#######*■##*######*#*##*#****##***#*'*#**«•«•*###•!(■#****#* 



SSNCHR 



PUSH 

PUSH 

PUSH 

PUSH 

PUSH 

PUSH 

CALL 

PUSH 

POP 

LD 



AF 

BC 

DE 

HL 

IX 

IY 

0A7FH 

HL 

IX 

L» ( IX+0) 



5SAVE REGISTERS 



;**#GET PB LOC'N*** 
5 TRANSFER TO IX 

5PUT STRING START IN HL 
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7F11 


DD6601 


00350 




LD 


H? (IX+1 ) 




7F14 


DD4E02 


00360 




LD 


C? (IX+2) 


5PUT # OF BYTES IN BC 


7F17 


DD4603 


00370 




LD 


B? (IX+3) 




7F1A 


DD5E04 


00380 




LD 


E? < IX+4) 


;PUT SS IN DE 


7F1D 


DD56B5 


00390 




LD 


D? UX+5) 




7F20 


D5 


00400 




PUSH 


DE 


; TRANSFER TO IY 


7F21 


FDEi 


00410 




POP 


IY 




7F23 


FD7E00 


00420 


SSN060 


LD 


A, (IY+0) 


3 GET FIRST CHAR OF SS 


7F26 


EDB1 


00430 




CPIR 




5SEARCH FOR 1ST CHAR 


7F2B 


202 1 


00440 




JR 


NZ?SSN080 


5 GO IF FIRST CHAR NOT FND 


7F2A 


DD4606 


00450 




LD 


B? ( IX+6) 


;GET # OF BYTES IN SS 


7F2D 


05 


00460 




DEC 


B 


5 DECREMENT FOR FIRST 


7F2E 


2813 


00470 




JR 


ZiSSN072 


5 0NE BYTE KEY CASE 


7F30 


E5 


00480 




PUSH 


HL 


;SAVE LOC'N OF FIRST 


7F31 


FDE5 


00490 




PUSH 


IY 


;SAVE 1ST CHAR OF SS 


7F33 


FD23 


00500 




INC 


IY 


5 POINT TO SECOND OF SS 


7F35 


7E 


00510 


SSN070 


LD 


A. (HL) 


;GET NEXT BYTE 


7F36 


FDBE00 


00520 




CP 


< IY) 


; COMPARE 


7F39 


200B 


00530 




JR 


NZ?SSN075 


;GO IF NO MATCH 


7F3B 


23 


00540 




INC 


HL 


;BUMP STRING PNTR 


7F3C 


FD23 


00550 




INC 


IY 


5 BUMP SS PNTR 


7F3E 


10F5 


00560 




DJNZ 


SSN070 


5GO IF MORE 


7F40 


FDEI 


00570 




POP 


IY 


?GET 1ST CHAR POS OF SS 


7F42 


El 


00580 




POP 


HL 


5 RESTORE LOC'N OF FIRST+1 


7F43 


2B 


00590 


SSN072 


DEC 


HL 


; ADJUST FOR CPIR 


7F44 


1808 


00600 




JR 


SSN090 


;GO FOR CLEANUP 


7F46 


FDEI 


00610 


SSN075 


POP 


IY 


5 RESET 


7F48 


El 


00620 




POP 


HL 


; RESTORE CUR LOC'N 


7F49 


18D8 


00630 




JR 


SSN06B 


; CONTINUE CPIR 


7F4B 


21FFFF 


00640 


SSN080 


LD 


HL?-1 


SNOT FOUND FLAG 


7F4E 


DD7507 


00650 


SSN090 


LD 


(IX+7)?L 


I STORE LOC'N OR 'NOT FND' 


7F31 


DD7408 


00660 




LD 


(IX+8).H 




7F54 


FDEI 


00670 




POP 


IY 


5 RESTORE REGISTERS 


7F56 


DDE1 


00680 




POP 


IX 




7F5B 


El 


00690 




POP 


HL 




7F59 


Dl 


00700 




POP 


DE 




7F5A 


CI 


00710 




POP 


BC 




7F5B 


Fl 


00720 




POP 


AF 




7F5C 


C9 


00730 




RET 




; RETURN TO CALLING PROG 


0000 




00740 




END 






00000 TOTAL 


ERRORS 











SSNCHR DECIMAL VALUES 



245s 197» 213s 229; 22 1? 229) 25 3 ? 229? 205 ? 127* 
10s 229 j 221 5 225? 221? 110) 0? 221 ? 102? 1? 
221 ? 78? 2? 221? 70? 3? 221? 94? 4? 221? 
86? 5? 213? 253? 225? 253? 126? 0? 237? 177? 
32? 33? 221? 70? 6? 5? 40? 19? 229? 253? 
229? 253? 35? 126? 253? 190? 0? 32? 11? 35? 
253? 35? 16? 245? 253? 225? 225? 43? 24? 8? 
253? 225? 225? 24? 216? 33? 255? 255? 221? 117? 
7? 221 » 116? 8? 253? 225? 221? 225? 225? 209? 
193? 241? 201 



CHKSUM= 198 

SSOCHR: SEARCH STRING FOR ONE CHARACTER 



System Configuration 

Model I, Model III, Model II Stand Alone. 
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Description 

SSOCHR searches a string of any length for a given byte. A "found" or "not 
found" address of the character is returned. The string and byte may contain 
any combinations of data — ASCII, binary, or other combinations. 



Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
two bytes of the parameter block contain the starting address of the string to be 
searched in standard Z-80 address format, least significant byte followed by 
most significant byte. The next two bytes of the parameter block contain the 
number of bytes in the string to be searched. The next bytes of the parameter 
block contain the "key" byte, the byte for which the search is to be made. The 
next two bytes are reserved for the result. 

On output, PARAM+5, + 6 contain the result of the search. All other bytes in 
the parameter block are unchanged. The result is a —1 if the search byte has 
not been found in the string to be searched. If the search byte has been found, 
the result is the actual address of the first occurrence of the search byte in the 
string to be searched. 







INPUT 
H L 








OUTPUT 

H L 
i 






I 

POINTER TO PARAM+0 


=> 


UNCHANGED 






1 












PARAM+0 

+ 1 


ADDRESS 
OF MEM1+0 


PARAM+0 ' 

+ 1 


- UNCHANGED - 




+2 


# BYTES 
IN STRING 




N. 


+2 
+3 


- UNCHANGED - 




+3 


> 

7 




+4 


SRCH CHAR 


+4 


UNCHANGED 




+5 
+6 


RESERVED 

FOR 

RESULT 


+5 
+6 


ADDRESS OF 

- FOUND CHAR - 

OR-1 

- — 





MEM 1+0 

+ 1 
+2 
+3 
+4 

+5 
+6 





MEM 1+0 




STRING 

OF 

CHARACTERS 


+ 1 

+2 


. UNCHANGED - 






> +3 j 








+4 








+5 
+6 





Algorithm 

The SSOCHR subroutine performs the search by a "CPIR" block search for the 
first character. 



201 



The registers are first set up for the CPIR. The string start address of the string to 
be searched is put into the HL register pair. The number of bytes in the string to 
be searched are put into BC. The search byte is put into the A register. The CPIR 
search is then done. 

If the Z flag is not set after the CPIR, the key byte has not been found and the 
code at SSO010 puts a — 1 into the result. If the Z flag is set, the key byte has 
been found. 

Sample Calling Sequence 



NAME OF SUBROUTINE? SSOCHR 

HL VALUE? 50000 

PARAMETER BLOCK LOCATION? 50000 

PARAMETER BLOCK VALUES? 





+ 2 
+ 4 

^ 5 
+ 7 



1 
2 
S 



MEMORY BLOCK- 
MEMORY BLOCK 



40000 

5 ADDRESS OF STRING TO BE SEARCHED 

66 5 BYTES 

SEARCH CHARACTER 



i LOCATION? 40000 

1 VALUES? 



i 
1 
1 
1 
1 




67 
68 

66 
65 
60 




- STRING TO BE SEARCHED 



MEMORY BLOCK 2 LOCATION? 
MOVE SUBROUTINE TO? 52000 
SUBROUTINE EXECUTED AT 52000 



INPUT: 
HL= 50000 
PARAM+ 
PARAM+ i 
PARAM+ 2 
PARAM+ 
PARAM+ 
PARAM+ 
PARAM+ 
MEMB1+ 
MEMBI+ 1 
MEMB1+ 2 
MEMB1+ 
MEMB1+ 



3 
4 
5 
6 



3 
4 



64 

156 

5 



66 





67 

68 

66 

65 

60 



OUTPUT: 
HL= 50000 
PARAM+ 
PARAM+ 
PARAM+ 
PARAM+ 

PARAM+ 
PARAM+ 
PARAM+ 
MEMB1+ 
MEMB1+ 
MEMB1+ 
MEMB1+ 
MEMB1+ 



1 
2 
3 
4 
5 
6 

i 
2 
3 
4 



64 

156 

5 



66 

66 

156 

67 

68 

66 

65 

60 



-UNCHANGED 



-FOUND AT 40002 



-UNCHANGED 



NAME OF SUBROUTINE? 



Program Listing 



7F00 



00100 
00110 

00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 



ORG 7F00H 5 0522 

; #*#####*#*#####*###*######*####*###########*##*#####*### 

!* ONE-CHARACTER STRING SEARCH. SEARCHES STRING FOR ONE # 

?* GIVEN CHARACTER. # 

5* INPUT: HL=> PARAMETER BLOCK * 

5* PARAM+0»+i=ADDRESS OF STRING TO BE SRCHED * 

I* PARAM+2 5 +3=# OF BYTES * 

;* PARAM+4=SEARCH CHARACTER # 

?* PARAM+5 5 +6=RESERVED FOR RESULT * 

;# OUTPUT JPARAM+5» +6 SET TO -1 IF NOT FOUND OR ADD- * 

5* RESS OF CHARACTER IF FOUND * 
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7F00 


F5 


00230 SSOCHR 


PUSH 


AF 


7F01 


C5 


00240 


PUSH 


BC 


7F02 


E5 


00250 


PUSH 


HL 


7F03 


DDE5 


00260 


PUSH 


IX 


7F05 


CD7F0A 


00270 


CALL 


0A7FH 


7F08 


E5 


00280 


PUSH 


HL 


7F09 


DDE1 


00290 


POP 


IX 


7F0B 


DD6E00 


00300 


LD 


L> (IX+0) 


7F0E 


DD6601 


00310 


LD 


H, (IX+1 ) 


7F11 


DD4E02 


00320 


LD 


C» ( IX+2 5 


7F14 


DD46B3 


00330 


LD 


B» < IX+3) 


7F17 


DD7E04 


00340 


LD 


A, (IX+4) 


7F1A 


EDB1 


00350 


CPJR 




7F1C 


2003 


00360 


JR 


NZ»SSO010 


7F1E 


2B 


00370 


DEC 


HL 


7F1F 


1803 


00380 


JR 


SSO020 


7F21 


21FFFF 


00390 SSO010 


LD 


HLi-1 


7F24 


DD7505 


00400 SSO020 


LD 


(IX+5)iL 


mi bbeI 06 


mm 


p8p 


(IX+6)»H 


7F2C 


El 


00430 


pop 


HL 


7F2D 


CI 


00440 


POP 


BC 


7F2E 


Fl 


00450 


POP 


AF 


7F2F 


C9 


00460 


RET 




0000 




00470 


END 




00000 TOTAL 


ERRORS 







5SAVE REGISTERS 



;###GET PB LOC'N*** 
5 TRANSFER TO IX 

;PUT STRING ADDRESS IN HL 

;PUT # BYTES IN BC 

?PUT SEARCH KEY IN A 

5SEARCH 
;GO IF NOT FOUND 
; FOUND? ADJUST POINTER 
5 SO TO STORE RESULT 
5FLAS FOR NOT FOUND 
? STORE RESULT 

; RESTORE REGISTERS 



! RETURN TO CALLING PROG 



SSOCHR DECIMAL VALUES 



245) 197? 229 » 221 » 229 » 205? 127; 10? 2k:9> 22 If 
225) 2215 110? 0> 221 » 102» 1> 221 > 78? 2» 



221» 

43? 

116. 



70> 3? 221 1 1265 4 ? 237» 177. 32, 3, 
245 3 5 33? 255? 255 5 221 > 117» 5> k'21i 



221s 225s 



1935 241- 
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CHKSUM= 137 

SSTCHR: SEARCH STRING FOR TWO CHARACTERS 



System Configuration 

Model 1, Model III, Model II Stand Alone. 

Description 

SSTCHR searches a string of any length for a "substring" of two bytes. A 
"found" or "not found" address of the substring is returned. The strings may 
contain any combinations of data — ASCII, binary, or other combinations. 



Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
two bytes of the parameter block contain the starting address of the string to be 
searched in standard Z-80 address format, least significant byte followed by 
most significant byte. The next two bytes of the parameter block contain the 
number of bytes in the string to be searched. The next two bytes of the parameter 
block contain the "key" string, the string for which the search is to be made. 
The next two bytes are reserved for the result. 



203 



On output, PARAM+6,+ 7 contain the result of the search. All other bytes in 
the parameter block are unchanged. The result is a - 1 if the search key has not 
been found in the string to be searched. If the search key has been found, the 
result is the actual address of the first occurrence of the search key in the string 
to be searched. 



INPUT 







H L 






POINTER TO PARAM+0 

i 










PARAM+0 


ADDRESS OF 
STRING TO BE 




+ 1 


SEARCHED 
(MEM 1+0) 




+2 
+3 


#OF 
BYTES 




+4 


SEARCH 




+5 


CHARACTERS 




+6 


RESERVED 




+7 


FOR RESULT 




MEM 1+0 






+ 1 








STRING 




+2 


TO 
BE 




+3 


SEARCHED 




+4 








+5 










+6 









OUTPUT 



+ 



UNCHANGED 



~7 



PARAM+0 

+ 1 
+2 
+3 
+4 
+5 
+6 
+7 



MEM 1+0 

+ 1 



-- UNCHANGED 



-- UNCHANGED 



» 



+2 
+3 
+4 
+5 
+6 



UNCHANGED -- 



ADDRESS OF 

FOUND STRING 

OR -1 



UNCHANGED 



Algorithm 

The SSTCHR subroutine performs the search in two steps. First, a "CPIR" block 
search is made for the first character. If the first character is not found, the 
search has been unsuccessful. If the first character is found, a further compari- 
son is done for the second character in the search string. 

The registers are first set up for the CPIR. The string start address of the string to 
be searched is put into the HL register pair. The number of bytes in the string to 
be searched is put into BC. The first character of the search string is put into the 
A register. The CPIR search is then done. 

If the Z flag is not set after the CPIR, the first character of the string has not been 
found and the code at SST020 puts a - 1 into the result. If the Z flag is set, the 
first character of the string has been found. 

The code following the CPIR compares the remaining byte to see if the key 
string matches. In this loop, HL points to the location of the second byte in the 
string to be searched, while IX points to the parameter block location. If the 
second character does not compare; a return back to the CPIR is done with HL 
pointing to the next byte after the byte that was found. If the second character 
compares, the address of the first character in the string to be searched is put 
into the result. 
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I 
I 



Sample Calling Sequence 

NAME OF SUBROUTINE? SSTCHR 

HL VALUE? 42222 

PARAMETER BLOCK LOCATION? 42222 

PARAMETER BLOCK VALUES? 



4-0 2 


45 


555 START OF STRING TO BE SEARCHED 


+ 2 2 


7 




7 BYTES IN STRING TO BE SEARCHED 


4 4 1 

+ 5 i 


49 
48 




-SEARCH CHARACTERS 




4 6 2 















+ 80 















Mf MORY 


BLC 


CK 


1 LOCATION? 


45555 




MEMORY 


BLOCK 


.1 VALUES? 








+ i 


45 












+ I 1 


46 












+ 2 1 


47 












4 3 i 


48 




-INITIALIZE STRING TO BE SEARCHED 


+ 4 1 


49 




FOR EXAMPLE 








4 5 1 


48 












+ 6 1 


47 












4 7 















MEMORY 


BLOCK 


2 LOCATION? 






MOVE SUBROUTINE TO? 3B000 






SUBROUTINE 


EXECUTED AT 


38000 




INPUT: 






OUTPUT 








HL= 42222 




HL= 42: 


1'2'.'2. 






PARAM4- 





243 PARAM+ 





243 




PARAM4- 


1 


177 PARAM4- 


1 


177 




PARAM4- 
PARAM4- 


3 


7 



PARAM+- 
PARAM4- 


3 


7 



-UNCHANGED 


PARAM4- 


4 


49 


PARAM4- 


4 


49 




PARAM4- 


5 


48 


PARAM+ 


5 


48 - 




PARAM+ 
PARAM4- 


6 
7 






PARAM+- 
PARAM+ 


6 
7 


247 

177 _ 


-FOUND AT 45 


MEMB1+ 





45 


MEMB1+ 





45 




MEMB1+ 


i 


46 


MEMB14- 


1 


46 




MEMB 1 + 


"2. 


47 


MEMB14- 


2 


47 




MEMB1+ 


3 


48 


MEMB14- 


3 


48 


-UNCHANGED 


MEMB 1+ 


4 


49 


MEMB 1 + 


4 


49 




MEMB1+ 


5 


48 


MEMB 1+ 


5 


48 




MEMB 1 + 


6 


47 


MEMB1+ 


6 


47 





NAME OF SUBROUTINE? 

Notes 

1 . If a search is to be made for an address, the order of the search key should 
be least significant byte followed by most significant byte. If the search is for 
character data, the order of the search key should be first character, second 
character. In other words, arrange the bytes the way they would occur in the 
string to be searched. 

Program Listing 



7F00 



00100 ORG 7F00H 5 0522 

001 10 j #########*##*###*#*#####■»############**###*■##*#*■»*•##■*##* 

00120 ;* TWO-CHARACTER STRING SEARCH. SEARCHES STRING FOR TWO * 

00130 ;* GIVEN CHARACTERS. * 

00140 ;# INPUT: HL=> PARAMETER BLOCK * 

00150 ;* PARAM+0 S +1=ADDRESS OF STRING TO BE SRCHED * 

00160 ;* PARAM+2?4-3=# OF BYTES * 

00170 !* PARAM4-4»4-5=SEARCH CHARACTERS * 

00180 5* PARAM4-6*+7=RESERVED FOR RESULT * 

00.190 5* OUTPUT SPARAM4-6 1 +7 SET TO -1 IF NOT FOUND OR ADD- * 

00200 ;* RESS OF CHARACTERS IF FOUND * 

0021 ; ###*#*###******#*#*****##******#*#■»**■»****************** 
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00220 1 






7F00 


F5 


00230 SSTCHR 


PUSH 


AF 


7F01 


C5 


00240 


PUSH 


BC 


7F02 


E5 


00250 


PUSH 


HL 


7F03 


DDES 


00260 


PUSH 


IX 


7F05 


CD7F0A 


00270 


CALL 


0A7FH 


7F0B 


E5 


00280 


PUSH 


HL 


7F09 


DDE1 


00290 


POP 


IX 


7F0B 


DD6E00 


00300 


LD 


L, (IX+0) 


7F0E 


DD6601 


00310 


LD 


H, (IX+1) 


7F11 


DD4E02 


00320 


LD 


C, ( IX+2) 


7F14 


DD4603 


00330 


LD 


B, (IX+3) 


7F17 


DD7E04 


00340 SST010 


LD 


A, ( IX+4) 


7F1A 


EDB1 


00350 


CPIR 




7F1C 


200D 


00360 


JR 


NZ,SST020 


7F1E 


78 


00370 


LD 


A, B 


7F1F 


Bl 


00380 


OR 


C 


7F20 


2809 


00390 


JR 


Z , SST020 


7F22 


DD7E05 


00400 


LD 


A, (IX+5) 


7F25 


BE 


00410 


CP 


(HL) 


7F26 


20EF 


00420 


JR 


NZ»SST010 


7F2S 


2B 


00430 


DEC 


HL 


7F29 


1803 


00440 


JR 


SST030 


7F2B 


21FFFF 


00450 SST020 


LD 


HL.5-1 


7F2E 


DD7506 


00460 SST030 


LD 


(IX+6),L 


7F31 


DD7407 


00470 


LD 


(IX+7) ,H 


7F34 


DDE1 


00480 


POP 


IX 


7F36 


El 


00490 


POP 


HL 


7F37 


CI 


00500 


POP 


BC 


7F3B 


Fl 


00510 


POP 


AF 


7F39 


C9 


00520 


RET 




0000 




00530 


END 




00000 TOTAL 


ERRORS 







5SAVE REGISTERS 



5***GET PB LOC'N*** 
; TRANSFER TO IX 

;PUT STRING ADDRESS IN HL 

;PUT # BYTES IN BC 

;PUT SEARCH KEY IN A 

; SEARCH 
5 GO IF NOT FOUND 
5TEST FOR END 

;GO IF AT END OF STRING 
5GET SECOND CHAR OF KEY 
; COMPARE TO NEXT BYTE 
; CONTINUE IF NO MATCH 

5 ADJUST BACK TO START 

5GO TO STORE RESULT 

;FLAG FOR NOT FOUND 

; STORE RESULT 

5 RESTORE REGISTERS 



; RETURN TO CALLING PROG 



I 

■ 



SSTCHR DECIMAL VALUES 



245, 


197, 


229, 


22 


1, 229, 205, 


127, 


10, 


229 


225, 


221, 


110, 


0, 


221, 102, 1 


, 22 1 


, 78, 


2 5 


221, 


70, : 


, 22 


1, 


126, 4 , 237 , 


177, 


32, 


13, 


120, 


177, 


40, 


9, 


2.2 1 , 1 26 , 5 , 


190, 


32, 


239 


43, 


24 , 3 , 


33, 


255, 255, 221, 


117, 


6, : 


'21, 


116, 
HKSU 


7, 22 
M= 28 


1, 2 


25, 


225, 193, 2 


41, 2 


Bi 





221; 



SXCASS: WRITE/READ SCREEN CONTENTS TO CASSETTE 

System Configuration 
Model I, Model III. 



Description 

SXCASS writes the video display as a cassette record or reads in a previously 
written record to the display. All screen characters and graphics are written to 
the cassette and the subsequent read will restore the entire screen as it ap- 
peared before the write. 
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Input/Output Parameters 

On input, the HL register pair contains a zero for a write or a one for a read. On 
output, the screen has been written as a single cassette record, or the next 
cassette record has been read to the screen. 

INPUT OUTPUT 

H L H . L 



0=WRITE 1=READ 



UNCHANGED 



Algorithm 

If a screen write is to be performed, the code at SXC010 is executed. This uses 
the ROM subroutine to write leader (287H) of zeroes and a sync byte. The loop 
at SXC010 calls the ROM "write cassette byte" subroutine to write the video 
display memory contents from location 3C00H through 3FFFH. HL contains the 
pointer to video display memory. The write is done until the H register contains 
40H, signifying that the last screen byte has been written. No checksum or 
other header data is put on the cassette record. 

If a read screen is to be performed, the code at SXC025 is executed. ROM 
subroutine 296H is called to bypass the leader of the next cassette record. The 
loop at SXC030 calls the ROM "read cassette byte" subroutine to read in the 
bytes of the next cassette record into video memory locations 3C00H through 
3FFFH. HL is used as a memory pointer. The read is done until the H register 
contains 40H, signifying that the last screen byte has been read. 

Sample Calling Sequence 

NAME OF SUBROUTINE? SXCASS 
HL VALUE? WRITE 

PARAMETER BLOCK LOCATION? 
MEMORY BLOCK 1 LOCATION? 
MOVE SUBROUTINE TO? 37777 
SUBROUTINE EXECUTED AT 37777 
INPUT: OUTPUT: 

Hi = HL= 

NAME OF SUBROUTINE? 

Notes 

1. The read or write operation takes approximately 25 seconds. 

2. This subroutine does not save registers. 

Program Listing 

7F00 00100 ORG 7F00H 5 0520 

001 1 ? ft******************************************************* 

00120 ;* WRITE/READ SCREEN CONTENTS TO CASSETTE. * 

00130 ;* INPUT! HL=0 FOR WRITE SCREEN, 1 FOR READ * 

00140 ;* OUTPUT: SCREEN/CASSETTE ACTIONS * 

00150 J******************************************************** 

00160 5 
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7F00 


F3 


001 70 


SXCASB 


DI 




5 DISABLE INTERRUPTS 


7FB1 


AF 


00180 




XOR 


A 


5ZERO A 


7F02 


CD 1202 


00190 




CALL 


21 2H 


; SELECT CASSETTE 


7F05 


CD7F0A 


00200 




CALL 


0A7FH 


;*#*SET FUNCTION*** 


7F08 


CB45 


00210 




BIT 


05 L 


;TEST FUNCTION 


7F0A 


2014 


00220 
00230 


; WRITE 


JR 
HERE 


NZ»SXC025 


;SO IF READ CASSETTE 


7F0C 


CD8702 


00240 




CALL 


28 7H 


5WRITE LEADER 


7F0F 


21003C 


00250 




LD 


HL»3C00H 


; START OF SCREEN 


7F12 


E5 


00260 


SXC010 


PUSH 


HL 


;SAVE CURRENT LOCATION 


7F13 


7E 


00270 




LD 


A? (HL) 


;6ET NEXT BYTE 


7F14 


CD6402 


00280 




CALL 


264H 


; WRITE TO CASSETTE 


7F17 


El 


00290 




POP 


HL 


5 RESTORE POINTER 


7F18 


23 


00300 




INC 


HL 


5BUMP POINTER 


7F19 


7C 


00310 




LD 


A?H 


5GET POINTER MSB 


7F1A 


FE40 


00320 




CP 


40H 


5 TEST FOR SCREEN END+1 


7F1C 


20F4 


00330 




JR 


NZ?SXC010 


;LOOP IF NOT END 


7F1E 


1812 


00340 
00350 


; READ 


JR 

HERE 


SXC040 


; CLEANUP 


7F20 


CD9602 


00360 


SXC025 


CALL. 


296H 


; BYPASS LEADER 


7F23 


21003C 


00370 




LD 


HL-3C00H 


; START OF SCREEN 


7F26 


E5 


00380 


SXC030 


PUSH 


HL 


;SAVE CURRENT LOCATION 


7K27 


CD3502 


00390 




CALL 


235H 


;READ NEXT BYTE 


7F2A 


El 


00400 




POP 


HL 


; RESTORE POINTER 


7K2B 


77 


00410 




LD 


( HL ) ? A 


; STORE BYTE 


7F2C 


23 


00420 




INC 


HL. 


;BUMP POINTER 


7F2D 


7C 


00430 




LD 


A,H 


5 GET POINTER MSB 


7F2E 


FE40 


00440 




CP 


40H 


?TEST FOR SCREEN END+1 


7F30 


2BF4 


00450 




JR 


NZ.SXC030 


SLOOP IF NOT END 


7F32 


CDF8B1 


00460 


SXC040 


CALL 


1F8H 


; DESELECT 


7F35 


C9 


00470 




RET 




; RETURN TO CALLING PROG 


0000 




00480 




END 






00000 TOTAL 


ERRORS 











SXCASS DECIMAL VALUES 



243 ? 175. 205, 18? 2, 205? 127? 10, 203? 69* 
32j 20 5 2055 .1355 2> 33) 05 605 229» 1265 
2055 1005 25 225 5 355 124? 254. 64? 32» 244? 
24, 18, 205 5 1505 2, 335 0, 60s 229? 205 i 
53, 2' 5 2255 119? 35? 124. 254? 64s 32? 2445 
205? 248? 1? 201 



CHKSUM= 
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TiMEDL: TIME DELAY 



System Configuration 

Model I, Model III, Model II Stand Alone. 

Description 

TIMEDL delays a specified amount of time, from 1 millisecond to 65,536 milli- 
seconds, before returning to the user calling program. 

input/Output Parameters 

On input, the HL register pair contains the number of milliseconds to delay, 
from 1 to 65,536. A value of zero is treated as 65,536. TIMEDL returns after the 
specified delay. 
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INPUT OUTPUT 

H L H , L 



+ 



DELAY COUNT #-65,535 
1 



+ 



UNCHANGED 
1 



Algorithm 

The 1 millisecond time delay loop is the heart of T1MEDL. It consists of one 
instruction, the DJNZ at T1M020, This instruction takes 1 3 cycles when the loop 
is made or 8 cycles when B is decremented to zero. With a given count in B, 
therefore, the time delay is: 

Delay (cycles) = (CNT-1)*13 + 8 

A cycle in the Model I with a standard clock takes 0.56375 microseconds. The 
delay in microseconds is therefore: 

Delay (microseconds) = (CNT-1)*7.32875 + 4.51 

To get a time delay of 1000 microseconds (1 millisecond): 

1000 = (CNT-1)*7.32875 + 4.51; 
CNT= 134.83 

The outer loop of TIMEDL controls the number of 1 millisecond inner loops. 
The outer loop has some overhead associated with it, so the count in B for the 
DJNZ is made 134 even. The actual time delay for a given value in HL, HLCNT, 
is now: 

Delay (cycles) = HLCNT*(7 + (133*13 + 8) +15 +12) 
Delay (microseconds) = HLCNT*998.40 

This is about a 0.1% error on the low side, or about a millisecond for a one^ 
second delay. 

Sample Calling Sequence 

NAME OF SUBROUTINE? TIMEDL 

HL VALUE? (3 MAXIMUM DELAY = 65.535 SECONDS 

PARAMETER BLOCK LOCATION? 

MEMORY BLOCK 1 LOCATION? 

MOVE SUBROUTINE TO? 50000 

SUBROUTINE EXECUTED AT 50000 

INPUT: OUTPUT: 

HL= HL= 

NAME OF SUBROUTINE? 

Notes 

1. Adjust the immediate value loaded into B for clock modified TRS-80s. 

2. Use an immediate value of 153 for Model Ills. 

3. Use an immediate value of 151 for Model lis for delays of .5 to 32768 
milliseconds in units of 1/2 millisecond. 
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Program Listing 



7F00 



7F00 
7F01 
7F02 
7F03 
7F06 
7F09 
7F0B 
7F0D 
7F0F 
7F11 
7F12 
7F13 
7F14 
0000 
00000 



C5 

D5 

E5 

CD7F0A 

i 10100 

0686 

10FE 

ED52 

20F8 

El 

Dl 

CI 

C9 

TOTAL 



00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
ERRORS 



ORG 7F00H 5 0520 

; TIME DELAY. DELAYS 1 TO 65,536 MILLISECONDS. * 

! INPUT! HL=TIME DELAY COUNT? 1 TO 65535. 0=65536 * 

5 OUTPUT: RETURN AFTER DELAY # 



TIMEDL 



TIM010 

TIM020 



PUSH 
PUSH 
PUSH 

CALL 

LD 

LD 

DJNZ 

SBC 

JR 

POP 

POP 

POP 

RET 

END 



BC 

DE 

HL 

0A7FH 

DE* 1 

B? 134 

TIM020 

HLsDE 

NZ?TIM010 

HL 

DE 

BC 



5 SAVE REGISTERS 



;#**GET TD COUNT*** 

I DECREMENT 

SINNER LOOP COUNT 7 

5LOOP FOR 1 MS 8/13 
5 DECREMENT TD COUNT 15 
?GO IF NOT OVER 7/12 

; RESTORE REGISTERS 



5 RETURN TO CALLING PROG 



TIMEDL DECIMAL VALUES 



197? 213, 229? 205! 
134? 16? 254? 237? 
201 



127? 10? 17? 
32? 32? 248? 



1 ? 0? 6? 
225? 209? 



193? 



CHKSUM= 20 



TONOUT: TONE ROUTINE 



System Configuration 
Model I, Model III. 

Description 

TONOUT outputs a tone through the cassette port. The cassette jack output 
may be connected to a small, inexpensive amplifier for audio sound effects or 
warning tones. The tone ranges from approximately cycles per second (hertz) 
to 14,200 cycles per second. The duration of the tone may be specified by the 
user. 

TONOUT is not a musical tone generator (see MUNOTE), but is a general- 
purpose tone generator to produce tones over a wide range and duration. 

Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
two bytes of the parameter block contain a frequency count for the subroutine. 
The frequency count may be 1 to 65,535. A frequency count of is regarded as 
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65,536. The frequency decreases as the frequency count increases. A frequency 
count of 1 is approximately 14,200 hertz, while a frequency count of 256 is 
approximately 150 hertz. The exact frequency is given by 

Frequency = 1,000,000 / (25.9*COUNT + 44.53) 

The next two bytes of the parameter block contain a duration count of 1 to 
65,535. A duration count of is regarded as 65,536. The greater the duration 
count, the greater will be the duration of the tone. Each duration count pro- 
duces one "cycle" of the tone plus one additional cycle. A tone of 400 hertz, 
for example, is 1/400 or2.5 milliseconds per cycle, and a duration count of 100 
would cause the 400 hertz tone to be generated for 100*2.5 milliseconds or 1/4 
second. The higher the frequency, the smaller the cycle time, and the duration 
count should be adjusted to compensate for this. Two consecutive 400 hertz 
and 800 hertz tones of 1/4-second duration, for example, should have duration 
counts of 100 and 50, respectively. Maximum duration for a 1000 hertz tone is 
65.5 seconds. 



INPUT 


OUTPUT 






H L 






H L 




— ■ — I 

POINTER TO PARAM+0 


\ 


UNCHANGED 










r 












PARAM+0 

+ 1 


FREQUENCY 
COUNT 


PARAM+0 

+ 1 


- UNCHANGED - 




+2 

+3 


DURATION 
COUNT 


+2 

V 

> +3 

/ 


- UNCHANGED - 




Algorithm 











TONOUT uses two loops. The outer loop (from TON010) produces the number 
of cycles equal to the duration count. The inner loop is made up of two parts. 
The TON020 portion outputs an "on" pulse from the cassette output. The 
TON030 portion turns off the cassette port for the same period of time. Both 
portions use the frequency count from the parameter block for a timing loop 
count. 

The frequency count is first put into DE and the duration count into IX. The 
TON010 loop puts the DE frequency count into HL and turns on the cassette 
(OUT 0FFH,A). The count in HL is then decremented by one in the TON020 
timing loop. At the end of the loop, the count is again put into HL from DE, the 
cassette is turned off, and the count is decremented by one in the TON030 
timing loop. After this loop, the duration, or cycle, count in IX is decremented 
by one and if not negative, a jump is made back to TON010 for the next cycle. 

Sample Calling Sequence 

NAME OF SUBROUTINE? TONOUT 

HL VALUE? 40000 

PARAMETER BLOCK LOCATION? 40000 

PARAMETER BLOCK VALUES? 
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FREQUENCY COUNT OF ABOUT 1000 HZ 
DURATION OF ABOUT 10 SECONDS 



+ 2 37 

+ 2 2 10000 

+ 400 

MEMORY BLOCK 1 LOCATION? 

MOVE SUBROUTINE TO? 37000 

SUBROUTINE EXECUTED AT 37000 



INPUT: 




OUTPUT: 


HL= 40000 




HL= 40000 


PARAM+ 


37 


PARAM+ 37 


PARAM+ 1 





PARAM+ 1 


PARAM+ 2 


1.6 


PARAM+ 2 16 


PARAM+ 3 


39 


PARAM+ 3 39 



UNCHANGED 



NAME OF SUBROUTINE? 



Notes 



1. Cassette port electronics limits the tone output to 100 through 6000 hertz 
or so. 

2. The frequency equation above is for a standard TRS-80 Model i clock fre- 
quency. 

Program Listing 



7F00 



7F00 

7F01 

7F02 

7F03 

7F04 

7F06 

7F09 

7F0A 

7F0C 

7F0F 

7F12 

7F13 

7F16 

7F19 

7F1A 

7F1B 

7F1D 

7F20 

7F21 

7F22 

7F24 

7F26 

7F27 

7F2A 

7F2B 

7F2C 

7F2E 

7F30 



F5 

C5 

D5 

E5 

DDE5 

CD7F0A 

E5 

DDE1 

DD5E00 

DD5601 

IB 

DD4E02 

DD4603 

0B 

C5 

DDE1 

01FFFF 

6B 

62 

3E01 

D3FF 

09 

DA267F 

6B 

62 

3E02 

D3FF 

09 



00100 

00110 

00120 

00130 

00140 

00150 

00160 

00170 

001B0 

00190 

00200 

00210 

00220 

00230 

00240 

00250 

00260 

00270 

00280 

00290 

00300 

00310 

00320 

00330 

00340 

00350 

00360 

00370 

00380 

00390 

00400 

00410 

00420 

00430 

00440 

00450 

00460 

00470 



ORG 7F00H ; 0522 

5* TONE ROUTINE. OUTPUTS A TONE THROUGH THE CASSETTE * 

5* PORT OF SPECIFIED FREQUENCY AND DURATION. » 

5* INPUT: HL=> PARAMETER BLOCK * 

5* PARAM+0,+i=FRE<5UENCY COUNT * 

5* PARAM+2»+3=DURATI0N COUNT * 

5* OUTPUT STONE ON CASSETTE PORT # 

; 



TONOUT 



TON010 



TON020 



TON030 



PUSH 

PUSH 

PUSH 

PUSH 

PUSH 

CALL 

PUSH 

POP 

LD 

LD 

DEC 

LD 

LD 

DEC 

PUSH 

POP 

LD 

LD 

LD 

LD 

OUT 

ADD 

JP 

LD 

LD 

LD 

OUT 

ADD 



AF 

BC 

DE 

HL 

IX 

0A7FH 

HL 

IX 

E> (IX+0) 

D> UX + 1) 

DE 

C» (IX+2) 

B» < IX+3) 

BC 

BC 

IX 

BC>-1 
L,E 
H,D 
A, 1 

(0FFH),A 

HL,BC 

C » TON020 

L.E 

H ? D 

A, 2 

(0FFH)»A 

HLsBC 



5SAVE REGISTERS 



l***GET PB LOC'N*** 
; TRANSFER TO IX 

5PUT FREQ COUNT IN DE 

! ADJUST FOR LOOP 
5PUT DUR COUNT IN BC 

; ADJUST FOR LOOP 
; TRANSFER TO IX 

5 FOR TIGHT LOOP 

5PUT FREQ COUNT IN HL 4 

54 

5MAXIMUM POSITIVE 7 

! OUTPUT 11 

; COUNT- 1 11 

;LP FOR 1/2 CYC 7/12 
5 PUT FRE© COUNT IN HL 4 
54 

5MAXIMUM NEGATIVE 7 
; OUTPUT 11 

; COUNT- 1 11 



212 



7F31 38FD 


00480 


JR 


C»TON03B 


7F33 DD09 


00490 


ADD 


IX, BC 


7F35 DA207F 


00500 


JP 


C)TON010 


7F3S DDEi 


00510 


POP 


IX 


7F3A El 


00520 


POP 


HL 


7F3B Dl 


00530 


POP 


DE 


7F3C CI 


00540 


POP 


BC 


7F3D Fl 


00550 


POP 


AF 


7F3E C9 


00560 


RET 




0000 


00570 


END 




00000 TOTAL 


ERRORS 







5 LP FOR 1/2 CYC 7/12 
5 DECREMENT DUR COUNT 15 
SLOOP IF NOT DONE 7/12 
(RESTORE REGISTERS 



; RETURN TO CALLING PROG 



TONOUT DECIMAL VALUES 



245) 197* 213) 229) 221) 229) 205) 127) 10) 229) 

221s 225) 221) 94) ? 221 i 86) 1» 27) 221) 

78) 2i 221) 70) 3) 11) 197) 221) 225) li 

255? 255) 107) 98) 62) 1) 211) 255) 9) 218> 

38) 127) 107) 98) 62) 2) 211) 255) 9» 56» 

253) 221) 9) 218) 32) 127) 221) 225) 225) 209. 

193» 241) 201 



CHKSUM= 102 



WCRECD: WRITE RECORD TO CASSETTE 



System Configuration 
Model I, Model III. 

Description 

WCRECD writes a variable-length record from memory to cassette. The record 
may be any number of bytes, from 1 to the limits of memory. The record is 
prefixed by a four-byte header that holds the starting address and number of 
bytes in the remainder of the record. The record is terminated by a checksum 
byte that is the additive checksum of all bytes in the record. Data in memory 
may represent any type of data the user desires; the record is written out as a 
"core image." 



Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
two bytes of the parameter block are the starting address of the data to be 
written out, in standard Z-80 address format, least significant byte followed by 
most significant byte. The next two bytes of the parameter block are the num- 
ber of bytes to be written in the record, 1 to 65,535. A value of is treated as 
65,536 bytes. 

On output, the contents of the parameter block are unchanged and the 
record has been written to cassette. 
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INPUT 

H L 



+ 



POINTER TO PARAM+0 



4- 



PARAM+0 

+ 1 


STARTING 

BUFFER 
ADDRESS 


+2 
+3 


# OF BYTES 

TO BE 

WRITTEN 



OUTPUT 







H L 




=> 


UNCHANGED 


PARA 

— s 


M+0 

+ 1 

+2 
+3 


t 




- UNCHANGED - 




- UNCHANGED - 




/ 





Algorithm 

The WCRECD subroutine uses Level II or Level III ROM subroutines to perform 
the write. First, a CALL is made to 212H to select cassette 0. Next, a call is made 
to 287H to write 256 zeroes and a sync byte as leader for the cassette record. 

The four-byte header is written out in the WCR005 loop. This header is taken 
from the parameter block and consists of the two address bytes and the two 
bytes containing the number of bytes in the record. Each byte is written by a 
CALL to 264H. A checksum in B is cleared before the operation; after the 
four-byte write, it contains the partial checksum for the four bytes. 

The starting address for the data and the number of bytes is next put into HL 
and DE, respectively. The loop at WCR010 writes out all of the bytes in the 
memory block by CALLS to 264H. For each CALL, the current value of the byte 
is added to the B checksum subtotal, the pointer to memory in HL is bumped 
by one, and the count in DE is decremented by one. When DE reaches zero, 
the checksum in B is output as the last byte and the cassette is deselected by a 
CALL to 1F8H. 

Sample Calling Sequence 



NAME OF SUBROUTINE? WCRECD 

HL VALUE? 40000 

PARAMETER BLOCK LOCATION? 40000 

PARAMETER BLOCK VALUES? 

+ 2 15360 BUFFER 

+ 2 2 1024 1024 BYTES 

+ 400 

MEMORY BLOCK 1 LOCATION? 

MOVE SUBROUTINE TO? 38000 

SUBROUTINE EXECUTED AT 38000 



INPUT: 
HL= 40000 
PARAM+ 
PARAM+ 1 
PARAM+ 2 
PARAM+ 3 





60 


4 



OUTPUT: 
HL= 40000 
PARAM+ 
PARAM+ 1 
PARAM+ 2 
PARAM+ 3 





60 

4 



-UNCHANGED 



NAME OF SUBROUTINE? 



Notes 



1. This subroutine uses cassette only. 

2. For 500 baud tape operations, each 1000 bytes will take about 20 seconds. 

3. This subroutine does not save registers. 
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Program Listing 



7F00 



7F00 
7F01 
7F02 
7F05 
7F08 
7F0B 
7F0C 
7F0F 
7F10 
7FH 
7K12 
7F13 
7F14 
7F15 
7F16 
7F19 
7F1A 
7F1B 
7F1C 
7F1E 
7F20 
7F21 
7F24 
7F27 
7F2A 
7F2D 
7F2E 
7F2F 
7F30 
7F31 
7F34 
7F35 
7F36 
7F37 
7F38 
7F39 
7F3A 
7F3B 
7F3C 
7F3D 
7F3E 
7F40 
7F41 
7F44 
7F47 
0000 



F3 

AF 

CD 1202 

CD8702 

CD7F0A 

E5 

010004 

7E 

F5 

81 

4F 

Fl 

C5 

E5 

CD6402 

El 

CI 

23 

10F1 

DDE1 

41 

DD6E00 

DD6601 

DD5E02 

DD5603 

C5 

D5 

E5 

7E 

CD6402 

El 

Dl 

CI 

7E 

80 

47 

23 

IB 

7A 

B3 

20ED 

78 

CD6402 

CDF801 

C9 



00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 
00560 
00570 
00580 
00590 
00600 
00610 
00620 
00630 
00640 
00650 



ORG 7F00H 5 0520 

;«■*########***#*##«■#*###*########*■»*#*#■»*###**#*«■*###**** 
5* WRITE RECORD TO CASSETTE. WRITES A VARIABLE-LENGTH * 
!* RECORD TO CASSETTE FROM A GIVEN BUFFER. "* 

5* INPUTS HL=> PARAMETER BLOCK * 

;# PARAM+0,+l=STARTING BUFFER ADDRESS # 

;* PARAM+2,+3=NUMBER OF BYTES TO BE WRITTEN * 

5* OUTPUT! RECORD WRITTEN TO CASSETTE * 

;#*#**#*#######*****#*#**#******************************■* 
• 



WCRECD 



WCR005 



WCR010 



DI 

XOR 

CALL 

CALL 

CALL 

PUSH 

LD 

LD 

PUSH 

ADD 

LD 

POP 

PUSH 

PUSH 

CALL 

POP 

POP 

INC 

DJNZ 

POP 

LD 

LD 

LD 

LD 

LD 

PUSH 

PUSH 

PUSH 

LD 

CALL 

POP 

POP 

POP 

LD 

ADD 

LD 

INC 

DEC 

LD 

OR 

JR 

LD 

CALL 

CALL 

RET 

END 



A 

212H 

287H 

0A7FH 

HL 

BC, 1024+0 

A, <HL) 

AF 

A,C 

C»A 

AF 

BC 

HL 

264H 

HL 

BC 

HL 

WCR005 

IX 

B,C 

Li (IX+0) 

H» UX + i) 

E, (IX+2) 

D, UX+3) 

BC 

DE 

HL 

A* <HL) 

264H 

HL 

DE 

BC 

A) (HL) 

A,B 

BsA 

HL 

DE 

A,D 

E 

NZ»WCR010 

A.B 

264H 

1F8H 



5DISABLE INTERRUPTS 

?ZERO A 

5 SELECT CASSETTE 

5WRITE LEADER 

;*#*GET PAR BL ADDR*** 

5 SAVE 

5 4 TO B» TO C 

5GET HEADER BYTE 

5 SAVE BYTE 

5 CHECKSUM 

;SAVE CHECKSUM 

; RESTORE ORIG BYTE 

5SAVE COUNT, CHECKSUM 

SSAVE POINTER 

5WRITE BYTE TO CASSETTE 

5 RESTORE POINTER 

5 GET COUNT, CHECKSUM 

5BUMP POINTER 

SLOOP FOR 4 HEADER BYTES 
i COMPLETE TRANSFER TO IX 
5 CHECKSUM 
5GET STARTING ADDRESS 

5GET # BYTES 

5SAVE CHECKSUM 

5 SAVE # OF BYTES 

5SAVE CURENT LOCATION 

5GET NEXT BYTE 

; WRITE TO CASSETTE 

; RESTORE POINTER 

5 RESTORE # OF BYTES 

;GET CHECKSUM 

5BYTE JUST OUTPUT 

5 COMPUTE CHECKSUM 

5 SAVE 

5 BUMP POINTER 

5 DECREMENT # BYTES 

5TEST FOR ZERO 

SLOOP IF NOT END 
5GET CHECKSUM 
S OUTPUT AS LAST BYTE 
5 DESELECT 
; RETURN TO CALLING PROG 



WCRECD DECIMAL VALUES 



243 , 175 5 205 , 18. 2, 205) 135. 2, 205 » 127, 
10, 229, 1, 0, 4, 126, 245, 129, 79, k'41, 
197, 229, 205, 100, 2, 225, 193, 35, 16, 241; 
221, 225, 65, 221, 110, 0, 221, 102, 1, 221, 
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94s 2, 221 5 86) 3» 197, : 
100, 2, 225, 209 » 193s V. 
122, 179) 32 i 237. 120, ; 
1. 201 



13, 229) 126, 205s 
:6» 128) 71. 35, 27, 
'05, 100, 2, 205, 24E 



WRDSEC: WRITE DISK SECTOR 



CHKSUM= 139 



System Configuration 
Model I. 

Description 

WRDSEC writes one sector from a specified buffer area to a specified disk 
drive. The user must know where a particular file is to be and what sectors are 
involved to utilize this subroutine. It is not a general-purpose "file manage" 
subroutine. 

Input/Output Parameters 

On input, the HL register pair contains a pointer to a parameter block. The first 
byte of the parameter block contains the disk drive number, to 3, correspond- 
ing to disk drives 1 through 4. The next byte of the parameter block contains the 
track number, through N. (Standard TRS-80s use disk drives with 35 tracks; 
other drives are available for 40 tracks.) The next byte is the sector number, 
through N (0 through 9 will be the most common range). The next two bytes are 
the user buffer area for the write in- standard Z-80 address format, least signifi- 
cant byte followed by most significant byte. The next byte contains a zero if a 
wait is to occur until the disk drive motor is brought up to speed; the byte 
contains a 1 if the motor is running (disk operation has just been completed) 
and no wait is necessary. The next byte (PARAM+ 6) is reserved for the status of 
the disk write on output. 

On output, all parameters remain unchanged except for PARAM4-6, which 
contains the status of the write. Status is for a successful write, or nonzero if 
an error occurred during any portion of the write. If an error did not occur, the 
contents of the buffer has been written to the sector. 



INPUT 







H L 






POINTER TO PARAM+0 

i 










PARAM+0 


DRIVE # 0-3 






+ 1 

+2 
+3 
+4 
+5 
+6 


TRACK # 




SECTOR # 




BUFFER 
ADDRESS 
(MEM 1+0} 




0=WAIT 1=N0 
WAIT 




RESERVED 





» 



OUTPUT 
H L 



I — I 1 

UNCHANGED 




i 




M+0 


UNCHANGED 




4~ 1 


UNCHANGED 




+2 


UNCHANGED 




+3 
+4 


- UNCHANGED - 




+5 


UNCHANGED 




+6 


0=NO ERROR 
#0=ERROR 
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MEM 1+0 

+ 1 
+2 
+3 
+4 
+5 
+6 



256 
BYTES 

OF 

DATA 

TO BE 

WRITTEN 



MEM 1+0 




+ 1 




+2 




> +3 


UNCHANGED 


/ 


+4 




+5 




+6 





Algorithm 

The disk drive number in L is first converted to the proper select configuration 
at VVRD010. The select byte is then output to disk memory-mapped address 
37EOH to select one of the disk drives. 

The wait bit is then examined. If this bit is a zero, the loop at WRD015 counts 
HL through 65,536 counts to wait until the disk drive motor is up to speed 
before continuing. 

The disk status is then examined (VVRD020). If the disk is not busy, the track 
number is loaded into the disk controller track register (37EFH) and a seek 
command is given (37ECH) to cause the controller to "seek" the track for the 
operation. A series of time-wasting instructions is then done. 

The code at VVRD030 gets the disk status after completion of the seek and 
ANDs it with a "proper result" mask. If the status is normal, the write contin- 
ues, otherwise an "abnormal" completion is done to VVRD090. 

The sector address from the parameter block is next output to the controller 
sector register (37EEH). Two time-wasting instructions are then done. 

A write command is then issued to the disk controller command register 
(37ECH). Further time-wasting instructions are done. 

The loop at VVRD04Q performs the actual write of the disk sector. A total of 256 
separate writes is done, one for each byte. HL contains the disk address of 
37ECH, DE contains a pointer to the buffer address, and BC contains the data 
register address of the disk controller. For each of the 256 reads, status is 
checked. If bit is set, all 256 bytes have been written. If bit 1 of the status is 
set, the disk controller is still busy and a loop back to WRD040 is done. If bit 1 
of the status is not set the next byte is read from memory, written to the disk, 
and the memory buffer pointer incremented. 

At the automatic (by the controller) termination of the write, status is again 
read, and an AND of 7 is done to check for the proper completion bits. The 
status is stored back into the parameter block. 

Sample Calling Sequence 



NAME OF SUBROUTINE? WRDSE 


C 


HL VALUE? 40000 




PARAMETER BLOCK LOCATION? 


4000B 


PARAMETER BLOCK VALUES? 




+ 1 DRIVE 




+ 1 1 20 TRACK 20 
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+ 215 


SECTOR 5 






+ 3 2 45000 


BUFFER 






+ 5 1 


WAIT 






+ 6 1 








+ 700 








MEMORY BLOCK 


1 LOCATION? 






MOVE SUBROUTINE TO? 38000 






SUBROUTINE EXE 


TOUTED AT 38000 




INPUT: 


OUTPUT: 






HL= 40000 


HL= 40000 






PARAM+ 


PARAM+ B 







PARAM+ 1 20 


PARAM+ 1 


20 




PARAM+ 2 5 


PAR AM + 2 


5 




PARAM+ 3 200 


PARAM+ 3 


200 


-UNCHANGED 


PARAM+ 4 175 


PARAM+ 4 


175 




PARAM+ 5 


PARAM+ 5 


_ 




PARAM+ 6 


PARAM+ 6 





-STATUS OK 



NAME OF SUBROUTINE? 



Notes 



1. Always perform an RESTDS operation before initial disk I/O to initialize the 
disk controller. 

Program Listing 



7F00 



7F00 
7F01 
7F02 
7F03 
7F04 
7F06 
7F09 
7F0A 
7F0C 
7F0F 
7F10 
7F11 
7F13 
7F14 
7F16 
7F19 
7F1C 
7F1D 
7F1F 
7F22 
7F23 
7F24 



F5 

C5 

D5 

E5 

DDES 

CD7F0A 

E5 

DDE1 

DD7E00 

3C 

47 

3E80 

07 

10FD 

32E037 

DD7E05 

B7 

2008 

210000 

2B 

7D 

B4 



00100 

00110 

00 1 20 

00130 

00140 

00150 

00160 

00170 

00180 

00190 

00200 

00210 

00220 

00230 

00240 

00250 

00260 

00270 

00280 

00290 

00300 

00310 

00320 

00330 

00340 

00350 

00360 

00370 

00380 

00390 

00400 

00410 

00420 

00430 

00440 

00450 



ORG 7F00H 5 0522 

!* WRITE DISK SECTOR. WRITES BUFFER INTO SPECIFIED * 

5* TRACKS SECTOR OF DISK. # 

!* INPUT: HL=> PARAMETER BLOCK # 

5* PARAM+0=DRIVE #,0-3 * 

?* PARAM+1=TRACK #, - N * 

5* PARAM+2=SECT0R #, - N * 

5* PARAM+3,+4=BUFFER ADDRESS * 

'* PARAM+5=0=WAIT AFTER SELECT, l=NO WAIT * 

?* PARAM+6=STATUS, 0=OK, 1=BAD * 

5* OUTPUT: BUFFER WRITTEN TO TRACK, SECTOR * 



WRDSEC 



WRD010 



WRD015 



PUSH 

PUSH 

PUSH 

PUSH 

PUSH 

CALL 

PUSH 

POP 

LD 

INC 

LD 

LD 

RLCA 

DJNZ 

LD 

LD 

OR 

JR 

LD 

DEC 

LD 

OR 



AF 
BC 
DE 
• HL 
IX 

0A7FH 
HL 
IX 

A, (IX+0) 
A 

B,A 
A,80H 

WRD010 

<37E0H),A 

A? (IX+5) 

A 

NZ,WRD020 

HL,0 

HL 

A,L 

H 



5SAVE REGISTERS 



;**#GET PB LOC'N*** 
? TRANSFER TO IX 

5GET DRIVE # 

? INCREMENT BY ONE 

5 PUT IN B FOR CONVERT 

5 MASK 

5 ALIGN FOR SELECT 

5 CONVERT TO ADDRESS 
5SELECT DRIVE 
;GET WAIT/NO WAIT 
5 TEST 

5 GO IF NO WAIT 
SWA IT COUNT 

! DELAY LOOP 6 

5TEST DONE 4 

54 
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7F25 


20FB 


00460 


JR 


NZ,WRD015 


7F27 


3AEC37 


00470 WRD020 


LD 


A» (37ECH) 


7F2A 


CB47 


00480 


BIT 


0i A 


7F2C 


20F9 


00490 


JR 


NZ»WRD020 


7F2E 


DD7E01 


00500 


LD 


A* (IX+1) 


7F31 


32EF37 


00510 


LD 


<37EFH),A 


7F34 


C5 


00520 


PUSH 


BC 


7F35 


CI 


00530 


POP 


BC 


7F36 


3E17 


00540 


LD 


A, 17H 


7F3B 


32EC37 


00550 


LD 


<37ECH),A 


7F3B 


C5 


00560 


PUSH 


BC 


7F3C 


CI 


00570 


POP 


BC 


7F3D 


C5 


00580 


PUSH 


BC 


7F3E 


CI 


00590 


POP 


BC 


7F3F 


3AEC37 


00600 WRD030 


LD 


As (37ECH) 


7F42 


CB47 


00610 


BIT 


0,A 


7F44 


20F9 


00620 


JR 


NZ,WRD030 


7F46 


E698 


00630 


AND 


9BH 


7F4B 


202 C 


00640 


JR 


NZ»WRD090 


7F4A 


DD7E02 


00650 


LD 


A, (IX+2) 


7F4D 


32EE37 


00660 


LD 


<37EEH),A 


7F50 


C5 


00670 


PUSH 


BC 


7F51 


CI 


00680 


POP 


BC 


7F52 


21EC37 


00690 


LD 


HL,37ECH 


7F55 


DD5E03 


00700 


LD 


E, (IX+3) 


7F5B 


DD5604 


00710 


LD 


D, (IX+4) 


7F5B 


3EAC 


00720 


LD 


A, BACH 


7F5D 


77 


00730 


LD 


( HL ) s A 


7F5E 


C5 


00740 


PUSH 


BC 


7F5F 


CI 


00750 


POP 


BC 


7F60 


C5 


00760 


PUSH 


BC 


7F61 


CI 


00770 


POP 


BC 


7F62 


01EF37 


00780 


LD 


BC37EFH 


7F65 


7E 


00790 WRD040 


LD 


A, (HL) 


7F66 


0F 


00800 


RRCA 




7F67 


3008 


00810 


JR 


NCWRD050 


7F69 


0F 


00820 


RRCA 




7F6A 


30F9 


00830 


JR 


NCWRD040 


7F6C 


1A 


00840 


LD 


A , ( DE ) 


7F6D 


02 


00850 


LD 


(BC)iA 


7F6E 


13 


00860 


INC 


DE 


7F6F 


18F4 


00870 


JR 


WRD040 


7F71 


3AEC37 


00880 WRD050 


LD 


A, (37ECH) 


7F74 


E607 


00890 


AND 


7 


7F76 


DD7706 


00900 WRD090 


LD 


( IX+6) iA 


7F79 


DDE1 


00910 


POP 


IX 


7F7B 


Ei 


00920 


POP 


HL 


7F7C 


Dl 


00930 


POP 


DE 


7F7D 


CI 


00940 


POP 


BC 


7F7E 


Fi 


00950 


POP 


AF 


7F7F 


C9 


00960 


RET 




0000 




00970 


END 




00000 TOTAL 


ERRORS 







5LOOP UNTIL HL=0 7/12 

;GET STATUS 

5TEST BUSY 

5 LOOP IF BUSY 
;GET TRACK NUMBER 
5 OUTPUT TRACK # 
5WASTE TIME 

5SEEK COMMAND 

; OUTPUT 

? WASTE TIME 



5GET STATUS 

!TEST BUSY 

SLOOP IF BUSY 
!TEST FOR NORMAL COMPL 
;GO IF ABNORMAL 
5GET SECTOR # 
5 OUTPUT 
5WASTE TIME 

5 DISK ADDRESS 

;PUT BUFFER ADDRESS IN DE 



; WRITE COMMAND 

5 OUTPUT 

; WASTE TIME 



5DATA REG ADDRESS 

;GET STATUS 

5 ALIGN 

5 GO IF DONE 

5ALIGN 

?GO IF NOT DRO 

5GET BYTE 

; OUTPUT TO DISK 

5 INCREMENT MEMORY PNTR 

5 LOOP TIL DONE 
;GET STATUS 

; CHECK FOR PROPER STATUS 
; STORE STATUS 
; RESTORE REGISTERS 



; RETURN TO CALLING PROG 



WRDSEC DECIMAL VALUES 



245, 197, 213, 229 
221, 225, 221, 126 
16, 253, 50, 224, 55, 
8, 33, 0, 0, 43, 125, 
236, 55, 203, 71, 32, 
239, 55, 197, 193, 62 



221, 229, 205 
0, 60, 71, 62 



193, 
230, 



197, 

152i 



193, 58, 
32, 44, 



236, 
221, 



221, 
180, 
249, 

23, 
55, 

126, 



126? 
32, 
221; 
50, 



127, 

128, 

5 , 183, 

251, 58, 

126, 1, 

236, 55, 

32: 

38, 



203, 71 
2, 50, 



10, 
7, 

32, 

50, 
197, 
249, 

55, 



229, 
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197, 193? 33s 236, 55* 221, 94* 3, 221, 86, 
4, 62, 172, 119, 197, 193, 197, 193, 1, 239, 
55, 126, 15, 48, 8, 15, 48, 249, 26, 2, 
19, 24, 244, 58, 236, 55, 230, 7, 221, 119, 
6, 221, 225, 225, 209, 193, 241, 201 



CHKSUM= 23 
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Ill 



APPENDICES 
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APPENDIX I 

Z-80 Instruction Set 



The following is a brief explanation of the Z-80 instructions used in the TRS-80 
subroutines. Refer to Zilog or Radio Shack documentation for more detailed 
descriptions. 

ADC 

This instruction adds one byte plus the current contents of the Carry flag to the 
contents of the A register when used in the format "ADD A,B"; the byte may be 
in another CPU register, an immediate value, or from memory. The instruction 
adds two bytes from a register pair plus the current contents of the Carry flag to 
the contents of HL, IX, or 1Y, when used in the format "ADD HL,DE." Flags are 
affected. 

ADD 

This instruction adds one byte to the contents of the A register when used in the 
format "ADD A,B"; the byte may be in another CPU register, an immediate 
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I 

value, or from memory. The instruction adds two bytes from a register pair, IX, — 

or 1Y to the contents of HL, IX, or IY, when used in the format "ADD HL,DE." 3 
Flags are affected. 

AND I 

This instruction logically ANDs one byte and the contents of the A register. The « 

byte may be in a CPU register, an immediate value, or from memory. Typical I 
format is "AND B," which ANDs the B and A registers. Flags are affected. 



BIT 

This instruction tests the bit of a CPU register or memory location. "BIT 7,B" 
tests bit 7 of the B register, while "BIT 0, (HL)" tests bit of the memory 
location pointed to by the HL register pair. The state of the bit goes into the 
Carry flag. 



CALL 

This instruction calls a subroutine by pushing the return address into the stack. 
In the format "CALL 0212H" it is an unconditional call. In the format "CALL 
NZ,0212H" it is a conditional call. The conditions may be on the state of the 
Zero, Carry, Sign flag, or other flags. No flags affected. 



CCF 

This instruction complements the Carry flag; a set is changed to reset and vice 
versa. 



CP 

This instruction compares two bytes, one in the A register, and one from an- 
other CPU register or memory. The result does not replace the contents of A, but 
only sets the flags on the result of the compare. Typical format is "CP (HL)," 
which compares A with the contents of the memory location pointed to by the 
HL register pair. Flags are affected. 



CPD 

This instruction performs one step of an "end to beginning" block compare, 
using A as the comparison key, HL as the pointer, and BC as the number of 
bytes. Flags are affected. 



CPDR 

This instruction performs an "end to beginning" block compare, using A as 
the comparison key, HL as the pointer, and BC as the number of bytes. Flags 
are affected. 
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CPI 



This instruction performs one step of a "beginning to end" block compare, 
using A as the comparison key, HL as the pointer, and BC as the number of 
bytes. Flags are affected. 



CPIR 



This instruction performs a "beginning to end" block compare, using A as the 
comparison key, HL as the pointer, and BC as the number of bytes. Flags are 
affected. 



CPL 



This instruction complements the contents of A; all ones are changed to zeroes, 
and all zeroes to ones. Most flags are unaffected. 



DAA 



This instruction adjusts the result in the A register so that it is a "decimal" or 
bed result. Flags are affected. 



DEC 

This instruction decrements the contents of a CPU register by one, when used 
in the format "DEC E." When used in the format "DEC HL," it decrements the 
contents of a register pair by one. When used in the format "DEC (HL)" or 
"DEC (IX + 5)" it decrements the contents of a memory location by one. Flags 
are affected only in the 8-bit case. 

Dl 

This instruction disables interrupts. 



DjNZ 

This instruction decrements the contents of the B register and then jumps if the 
result is not zero. It is relocatable. Typical format is "DJNZ 9000H." Flags are 
unaffected. 



El 

This instruction enables interrupts. 

EX 

This instruction swaps the contents of EX and HL when it is used in "EX DE,HL" 
or points to the "primed set" of the A register and flags when it is used in "EX 
AF,AF" or exchanges the first two bytes in the stack with HL, IX, or IY when 
used in "EX (SP),HL" format. Flags are unaffected. 






1 

s 

I 

I 
I 
I 
I 
I 

This is the jump "relative" instruction. It is identical in function to the "JP" 
instruction except that it is relocatable. Typical format is "JR 9000H" for an — 
unconditional jump or "JR NZ,9000H" for a conditional jump. Flags are unaf- I 



EXX 

This instruction switches to the primed set of BC, DE, and HL. Flags are unaf- 
fected. 



IN 

This is the input instruction. It inputs a value from an input/output device into 
the A register when in the form "IN A,(0FFH)." Flags are affected. 



INC 

This instruction increments the contents of a CPU register by one, when used in 
the format "INC E." When used in the format "INC HL," it increments the 
contents of a register pair by one. When used in the format "INC (HL)" or "INC 
(IX+5)" it increments the contents of a memory location by one. Flags are 
affected in 8-bit case only. 



IP 

This is the jump instruction. In the format "JP 9000H" or "JP (HL)," it is an 
unconditional jump. In the format "JP NZ,9000H," it is a conditional jump. The 
condition may be on the Zero flag (Z, NZ), Carry flag (C, NC), Sign flag (M, P), 
or other flags. Flags are unaffected. 



}R 



fected. 



LD 



This is the load instruction. It transfers data between CPU registers or between 
CPU registers and memory. When it is used to transfer data between two CPU 
registers, 8 bits will be transferred, and the format will be similar to "LD A,B" 
where B is the "source" and A is the destination. When it is used to transfer 
from a CPU register to memory, the format will be similar to "LD (3C00H),A" 
or "LD (HL),A"; the former transfers 8 bits from A to memory location 3C00H, 
the later transfers 8 bits from A to the memory location pointed to by HL. The 
format for 8 bit transfers from memory to a register will be reversed, as in "LD 
A,(3C00H)" and "LD A,(HL)." 



I 
I 
I 
I 



LD can also be used to transfer 16 bits of data between a register pair and _ 
memory. The format will be similar to "LD HL,(3C00H)," which transfers the I 
contents of location 3C00H and 3C01 H to the L and H registers, respectively. 
To transfer data between memory and a register pair, the format is reversed as 
in "LD (3C00H),HL" 
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LD can also be used to transfer immediate data into a register or register pa ir, as 
in "LD A,45H," which loads A with 45H, or "LD HL,3C00H" which loads HL 
with the value 3C00H, Flags are unaffected. 



LDD 

This instruction performs one step of an "end to beginning" block move, using 
HL as the "source pointer," DE as the "destination pointer," and BC as the byte 
count. Flags are affected. 



LDDR 

This instuction performs one step of an "end to beginning" block move, using 
HL as the "source pointer," DE as the "destination pointer," and BC as the byte 
count. Flags are affected. 



LDI 

This instruction performs one step of a "beginning to end" block move, using 
HL as the "source pointer," DE as the "destination pointer," and BC as the byte 
count. Flags are affected. 



LDIR 

This instruction performs a "beginning to end" block move, using HL as the 
"source pointer," DE as the "destination pointer," and BC as the byte count. 
Flags are affected. 



NEC 

This instruction takes the two's complement of the A register. It "negates" the 
contents of A. Flags are affected. 



NOP 

This instruction is a "no operation" performing no function. Flags are unaf- 
fected. 



OR 

This instruction logically ORs one byte and the contents of the A register. The 
byte may be in a CPU register, an immediate value, or from memory. Typical 
format is "OR B," which ORs the B and A registers. Flags are affected. 



OUT 

This is the output instruction. It outputs a byte from the A register to an 
input/output device when in the form "OUT (OFFH),A." Flags are unaffected. 
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POP 

This instruction POPs a two-byte value from the stack and puts it into a register 
pair. "POP DE" loads the D and E registers with the next two bytes from the 
stack and adjusts the SP register by two. Flags are unaffected unless AF 
POPped. 

PUSH 

This instruction pushes a register pair, IX, or IY onto the stack. "PUSH BC" 
pushes the contents of B and C onto the stack and adjusts the SP register by 
two. Flags are unaffected. 

RES 

This instruction resets a bit in a CPU register or memory location. "RES 5,A" 
resets bit 5 of the A register to 0, while "RES 2,(HL)" resets bit 2 of the memory 
location pointed to by the HL register pair. Flags are unaffected. 

RET 

This instruction returns from a subroutine by popping the return address from 
the stack. If the format is "RET," it is an unconditional return; if the format is 
"RET NZ," the return is conditional upon the Zero, Carry, Sign, or other flags. 
Flags are unaffected. 

RL 

This instruction rotates the contents of a CPU register and carry (nine bits) left 
one bit position. Typical format is "RL D" which rotates the D register and 
carry. Flags are affected. 



RLA 

This instruction rotates the A register and carry (nine bits) one bit position left. 
Flags are affected. 



RLC 

This instruction rotates the contents of a CPU register one bit position left. 
Typical format is "RLC E," which rotates the E register. Flags are affected. 

RLCA 

This instruction rotates the A register one bit position left. Flags are affected. 

RED 

This instruction rotates the memory location pointed to by HL and the least 
significant four bits of the A register four bits left. It is a "bed shift." Flags are 
affected. 
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RR 

This instruction rotates the contents of a CPU register and carry (nine bits) one 
bit position right. Typical format is "RR B" which rotates the B register and 
carry. Flags are affected. 



RRA 

This instruction rotates the A register and carry (nine bits) one bit position right. 
Flags are affected. 



RRC 

This instruction rotates the contents of a CPU register one bit position right. 
Typical format is "RRC H," which rotates the H register. Flags are affected. 



RRCA 

This instruction rotates the A register one bit position right. Flags are affected. 



RRD 

This instruction rotates the memory location pointed to by HL and the least 
significant four bits of the A register four bits right. It is a "bed shift." Flags are 
affected. 



SBC 

This instruction subtracts one byte minus the current contents of the Carry flag 
from the contents of the A register when used in the format "SBC A,B"; the byte 
may be in another CPU register, an immediate value, or from memory. The 
instruction subtracts two bytes from a register pair minus the current contents of 
the Carry flag from the contents of HL, IX, or 1Y, when used in the format "SBC 
HL,DE." Flags are affected. 



SCF 

This instruction sets the Carry flag. 

SET 

This instruction sets a bit in a CPU register or memory location. "SET 5,C" sets 
bit 5 of the C register, while "SET 0,(HL)" sets bit of the memory location 
pointed to by the HL register pair. Flags are unaffected. 



SLA 

This instruction logically shifts a CPU register one bit position left. Typical 
format is "SLA H," which shifts the H register. Flags are affected. 
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SRA 



This instruction arithmetically shifts a CPU register one bit position right. Typi- 
cal format is "SRA A," which shifts the A register. Flags are affected. 



SRL 



I 

I 
I 
I 
I 
I 

XOR 

This instruction logically exclusive ORs one byte and the contents of the A I 
register. The byte may be in a CPU register, an immediate value, or from mem- 
ory. Typical format is "XOR B," which XORs the B and A registers. Flags are 
affected. 



This instruction logically shifts a CPU register one bit position right. Typical 
format is "SRL L," which shifts the L register. Flags are affected. 



SUB 

This instruction subtracts one byte from the contents of the A register when 
used in the format "SUB A,B"; the byte may be in another CPU register, an 
immediate value, or from memory. The instruction subtracts two bytes from a 
register pair, IX, or 1Y from the contents of HL, IX, or IY, when used in the 
format "SUB HL,DE." Flags are affected. 
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APPENDIX II 

Decimal/Hexadecimal 
Conversion 
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00 


1 


01 


'2. 


02 


3 


03 


4 


04 


5 


05 


6 


06 


7 


07 


S 


08 


9 


09 


10 


0A 


11 


0B 


12 


0C 


13 


0D 


14 


0E 


15 


0F 


16 


10 


17 


11 


18 


12 


19 


13 


20 


14 


21 


15 
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Assembly Language 
Subroutines 

Here is a hands-on approach to programming that explains how any TRS-80 
computer user can increase productivity and reduce the tediousness of 
programming by using assembly-language subroutines. 

TRS-80 ASSEMBLY LANGUAGE SUBROUTINES uses the speed and 
compactness of assembly-language programming and gives you fully 
debugged, ready-to-run subroutines, including: 

• a subroutine that converts binary numbers in memory to decimal characters 

• a subroutine that generates high-speed clearing of a screen block • a 
subroutine that outputs music through the cassette port in seven octaves 

• a subroutine that generates pseudo-random numbers for simulation or 
modeling • a subroutine that generates high-speed string searches 

Each of the 65 fully documented subroutines includes: 

• a complete description of what the subroutine does • the input/output 
parameters required to use the subroutine • the algorithm for the subroutine 

• a sample calling sequence • notes on special uses or features • a decimal 
listing • a "check" on the validity of the data. 
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